**********************************************************************************************************
**********************************************************************************************************
**********************************************************************************************************
* Do-file for the paper
* Spillover effects of reminder nudges in complex environments
* by Alexander K. Koch, Dan Mønster, and Julia Nafziger
**********************************************************************************************************
**********************************************************************************************************
**********************************************************************************************************

/*
In the following, we provide the Stata codes that replicate the results from the paper and Appendix SI (supporting information)
"Spillover effects of reminder nudges in complex environments." 
*/
clear all

*Make sure to have the following stata packages installed
ssc install estout.pkg
ssc install balancetable
net install "http://www.stata-journal.com/software/sj4-3/gr0002_3" // if this fails, type findit lean
set scheme lean1 


*Set the following path: 
global path "SET YOUR PATH HERE" // e.g. global path "C:\Documents\Replicationfiles\"

*Input contains the data set, all outputs will be stored in the output folder.
global rawdata "$path\Rawdata"
global input "$path\Input"
global output "$path\Output"
global temp "$path\Temp"

cd "$input"
use ReplicationData.dta, clear
cd "$output"

*Basic set of control variables 
global BCOV "Scorediff12 Enjoyment SpeedPref HygienePref PriorKnowledge PriorBehaviors Age Female Nonbinary SingleHousehold Highschool Vocational Publicsector Privatesector Selfemployed Unemployed Other FreqMeat FreqComputerGames WorkedFoodSector HealthSector HadFoodPoison SharePreprepared Risktolerance"
global BCOV_rob2 "Scorediff12_rob2 Enjoyment SpeedPref HygienePref PriorKnowledge PriorBehaviors Age Female Nonbinary SingleHousehold Highschool Vocational Publicsector Privatesector Selfemployed Unemployed Other FreqMeat FreqComputerGames WorkedFoodSector HealthSector HadFoodPoison SharePreprepared Risktolerance"
global BCOV_rob3 "Scorediff12_rob3 Enjoyment SpeedPref HygienePref PriorKnowledge PriorBehaviors Age Female Nonbinary SingleHousehold Highschool Vocational Publicsector Privatesector Selfemployed Unemployed Other FreqMeat FreqComputerGames WorkedFoodSector HealthSector HadFoodPoison SharePreprepared Risktolerance"
*Extended set of control variables (variables in addition to basic control variables)
global ECOV "InfoSeekPre Children Stressed ConcernedFoodPois KitchenCleanPref AvoidWastePref HygieneMyth"



***************************************************************************************************************************************************

***************************************************************************************************************************************************

***                                			Paper		                             															***
***************************************************************************************************************************************************
***************************************************************************************************************************************************


********************************************************************************
***                                Paper: Figure 2                           ***
********************************************************************************


* Generated based on the coefficients from Tables S4-S7 and the associated confidence intervals 
* See code for these tables

********************************************************************************
***                                Paper: "Intertemporal effects"            ***
********************************************************************************

***In text: "The respective coefficients in Columns 4 to 6 in Tables S4 and S6 are significantly different according to a Wald chi-square test, $p<0.0001$ for all specifications in both the feedback and no feedback studies."

capture drop hatr
capture drop rrenum
gen hatr=r
gen rrenum=r
replace rrenum=r-12 if r>7
replace hatr=rrenum if level>10

*Feedback study
*without controls
quiet{
eststo clear
reg ifsa_remind pretreatscore treat_R i.hatr if level==8 & tagrecipe!=0 & treatment!=2 & feedback==1
eststo hyp1ic
reg ifsa_remind pretreatscore treat_R i.hatr if level==11 & tagrecipe!=0 & treatment!=2 & feedback==1
eststo hyp1iic
suest hyp1ic hyp1iic, vce(cluster pid)
}
test [hyp1ic_mean]treat_R=[hyp1iic_mean]treat_R


*with basic controls
quiet{
eststo clear
reg ifsa_remind pretreatscore treat_R i.hatr $BCOV  if level==8 & tagrecipe!=0 & treatment!=2 & feedback==1
eststo hyp1ic
reg ifsa_remind pretreatscore treat_R i.hatr  $BCOV  if level==11 & tagrecipe!=0 & treatment!=2 & feedback==1
eststo hyp1iic
suest hyp1ic hyp1iic, vce(cluster pid)
}
test [hyp1ic_mean]treat_R=[hyp1iic_mean]treat_R

*with extended controls
quiet{
eststo clear
reg ifsa_remind pretreatscore treat_R i.hatr $BCOV $ECOV if level==8 & tagrecipe!=0 & treatment!=2 & feedback==1
eststo hyp1ic
reg ifsa_remind pretreatscore treat_R i.hatr  $BCOV $ECOV if level==11 & tagrecipe!=0 & treatment!=2 & feedback==1
eststo hyp1iic
suest hyp1ic hyp1iic, vce(cluster pid)
}
test [hyp1ic_mean]treat_R=[hyp1iic_mean]treat_R

*No feedback study
*without controls
quiet{
eststo clear
reg ifsa_remind pretreatscore treat_R i.hatr if level==8 & tagrecipe!=0 & treatment!=2 & feedback==0
eststo hyp1ic
reg ifsa_remind pretreatscore treat_R i.hatr if level==11 & tagrecipe!=0 & treatment!=2 & feedback==0
eststo hyp1iic
suest hyp1ic hyp1iic, vce(cluster pid)
}
test [hyp1ic_mean]treat_R=[hyp1iic_mean]treat_R


*with basic controls
quiet{
eststo clear
reg ifsa_remind pretreatscore treat_R i.hatr $BCOV  if level==8 & tagrecipe!=0 & treatment!=2 & feedback==0
eststo hyp1ic
reg ifsa_remind pretreatscore treat_R i.hatr  $BCOV  if level==11 & tagrecipe!=0 & treatment!=2 & feedback==0
eststo hyp1iic
suest hyp1ic hyp1iic, vce(cluster pid)
}
test [hyp1ic_mean]treat_R=[hyp1iic_mean]treat_R

*with extended controls
quiet{
eststo clear
reg ifsa_remind pretreatscore treat_R i.hatr $BCOV $ECOV if level==8 & tagrecipe!=0 & treatment!=2 & feedback==0
eststo hyp1ic
reg ifsa_remind pretreatscore treat_R i.hatr  $BCOV $ECOV if level==11 & tagrecipe!=0 & treatment!=2 & feedback==0
eststo hyp1iic
suest hyp1ic hyp1iic, vce(cluster pid)
}
test [hyp1ic_mean]treat_R=[hyp1iic_mean]treat_R


***In text: "...Wald chi-square test comparing the respective coefficients in Columns 7 to 9 of Tables S4 and S6, $p=0.4443$/$p=0.9341$ for the feedback/no feedback study with the full set of controls."


*Feedback study
*without controls
quiet{
eststo clear
reg ifsa_not_remind pretreatscore treat_R i.hatr if level==8 & tagrecipe!=0 & treatment!=2 & feedback==1
eststo hyp1ic
reg ifsa_not_remind pretreatscore treat_R i.hatr  if level==11 & tagrecipe!=0 & treatment!=2 & feedback==1
eststo hyp1iic
suest hyp1ic hyp1iic, vce(cluster pid)
}
test [hyp1ic_mean]treat_R=[hyp1iic_mean]treat_R

*with basic controls
quiet{
eststo clear
reg ifsa_not_remind pretreatscore treat_R i.hatr $BCOV  if level==8 & tagrecipe!=0 & treatment!=2 & feedback==1
eststo hyp1ic
reg ifsa_not_remind pretreatscore treat_R i.hatr  $BCOV  if level==11 & tagrecipe!=0 & treatment!=2 & feedback==1
eststo hyp1iic
suest hyp1ic hyp1iic, vce(cluster pid)
}
test [hyp1ic_mean]treat_R=[hyp1iic_mean]treat_R


*with extended controls
quiet{
eststo clear
reg ifsa_not_remind pretreatscore treat_R i.hatr $BCOV $ECOV if level==8 & tagrecipe!=0 & treatment!=2 & feedback==1
eststo hyp1ic
reg ifsa_not_remind pretreatscore treat_R i.hatr  $BCOV $ECOV if level==11 & tagrecipe!=0 & treatment!=2 & feedback==1
eststo hyp1iic
suest hyp1ic hyp1iic, vce(cluster pid)
}
test [hyp1ic_mean]treat_R=[hyp1iic_mean]treat_R

*No feedback study
*without controls
quiet{
eststo clear
reg ifsa_not_remind pretreatscore treat_R i.hatr if level==8 & tagrecipe!=0 & treatment!=2 & feedback==0
eststo hyp1ic
reg ifsa_not_remind pretreatscore treat_R i.hatr if level==11 & tagrecipe!=0 & treatment!=2 & feedback==0
eststo hyp1iic
suest hyp1ic hyp1iic, vce(cluster pid)
}
test [hyp1ic_mean]treat_R=[hyp1iic_mean]treat_R

*with basic controls
quiet{
eststo clear
reg ifsa_not_remind pretreatscore treat_R i.hatr $BCOV  if level==8 & tagrecipe!=0 & treatment!=2 & feedback==0
eststo hyp1ic
reg ifsa_not_remind pretreatscore treat_R i.hatr  $BCOV  if level==11 & tagrecipe!=0 & treatment!=2 & feedback==0
eststo hyp1iic
suest hyp1ic hyp1iic, vce(cluster pid)
}
test [hyp1ic_mean]treat_R=[hyp1iic_mean]treat_R


*with extended controls
quiet{
eststo clear
reg ifsa_not_remind pretreatscore treat_R i.hatr $BCOV $ECOV if level==8 & tagrecipe!=0 & treatment!=2 & feedback==0
eststo hyp1ic
reg ifsa_not_remind pretreatscore treat_R i.hatr  $BCOV $ECOV if level==11 & tagrecipe!=0 & treatment!=2 & feedback==0
eststo hyp1iic
suest hyp1ic hyp1iic, vce(cluster pid)
}
test [hyp1ic_mean]treat_R=[hyp1iic_mean]treat_R

drop hatr rrenum





********************************************************************************
***        Paper: Materials and Methods - Subjects and sampling              ***
********************************************************************************

*Average pay in the feedback study
sum overallpay if feedback==1 & taguser==1

*Average pay in the no feedback study
sum overallpay if feedback==0 & taguser==1




***************************************************************************************************************************************************
***************************************************************************************************************************************************
***               							Appendix SI (supporting information)		                 										***
***************************************************************************************************************************************************
***************************************************************************************************************************************************


********************************************************************************
***   					SI 2. Attrition				    				     ***
********************************************************************************

preserve

cd "$rawdata"
use Attrition_data, clear

*** In text: "In total, 926 (814) subjects completed part 1 of the feedback (no feedback) study. Of those 162 (36) dropped out after part 1 or were excluded because of data loss."
tab finalsample feedback

*** In text: "Based on this criterion, we excluded 141 subjects from the feedback study and 26 subjects from the no-feedback study."
tab missingmorethan4rows feedback

*** Marginal effects from logit regression
gen attrition=1-finalsample
logit attrition i.treatment, rob
margins, dydx(treatment) at(treatment==0) 

restore
cd "$output"


********************************************************************************
***   					SI 3. Descriptive statistics    				     ***
********************************************************************************


*** Table S3. Descriptive statistics for the number of correct actions (IFSA score)
********************************************************************************

quiet{
	matrix DescrStats = J(12,12,.)
	matrix DescrStatsN = J(12,1,.)
	matrix colnames DescrStats =  Module1Score" "Module2Score"  "Module3Score4r" "Module4Score4r" "Module3_Remindedscore4r" "Module4_Remindedscore4r" "Module3_NonRemindedscore4r" "Module4_NonRemindedscore4r"  "Module3_ManyRemindedscore4r" "Module4_ManyRemindedscore4r" "Module3_NeverRemindedscore4r" "Module4_NeverRemindedscore4r"
	matrix colnames DescrStatsN =  "N" 
	matrix rownames DescrStats = "Control(feedback)" "stdev" "Control(nofeedback)" "stdev"  "Reminder(feedback)" "stdev" "Reminder(nofeedback)" "stdev" "ManyReminders(feedback)" "stdev" "ManyReminders(nofeedback)" "stdev" 
	matrix rownames DescrStatsN = "Control(feedback)" "" "Control(nofeedback)" ""  "Reminder(feedback)" "" "Reminder(nofeedback)" "" "ManyReminders(feedback)" "" "ManyReminders(nofeedback)" "" 

	
	set more off
	local outcomevar="Module1Score Module2Score Module3Score4r Module4Score4r Module3_Remindedscore4r Module4_Remindedscore4r Module3_NonRemindedscore4r Module4_NonRemindedscore4r Module3_ManyRemindedscore4r Module4_ManyRemindedscore4r Module3_NeverRemindedscore4r Module4_NeverRemindedscore4r"

	local rowcount=1
	forvalues i = 0(1)2 {
		local colcount=1
		foreach y of local outcomevar {
				sum `y' if treatment==`i' & taguser==1 & feedback==1
				matrix DescrStatsN[`rowcount',1]= r(N)
				matrix DescrStats[`rowcount',`colcount']= r(mean)
				matrix DescrStats[`rowcount'+1,`colcount']= r(sd)
				local colcount=`colcount'+1
		 }
		local rowcount=`rowcount'+4
	}
	local rowcount=3
	
	forvalues i = 0(1)2 {
		local colcount=1
		foreach y of local outcomevar {
				sum `y' if treatment==`i' & taguser==1 & feedback==0
				matrix DescrStatsN[`rowcount',1]= r(N)
				matrix DescrStats[`rowcount',`colcount']= r(mean)
				matrix DescrStats[`rowcount'+1,`colcount']= r(sd)
				local colcount=`colcount'+1
		 }
		local rowcount=`rowcount'+4
	}

}
	esttab 	matrix(DescrStats,  fmt(2 2)) using TableS3.tex,  title("Descriptive statistics for the number of correct actions (IFSA score)")   replace
	esttab 	matrix(DescrStatsN,  fmt(2 2)) using TableS3_N.tex,  title("Descriptive statistics for the number of correct actions (IFSA score) -- N")   replace
	

*** Figure S6. Average IFSA score (feedback study)
********************************************************************************
*net of the score for throwing out bread (if it drops in a recipe)	
quiet{
*Average IFSA score net of the score for throwing out bread (if it drops in a recipe)
gen temp=ifsa_score
replace temp=temp-bread if Breaddrops==1
*Matrix of average scores by recipe; treatments refer to columns and recipes refer to rows
matrix ifsascoreM=J(27,3,.)

local rowcount=1
local colcount=1
forvalues i = 0(1)2 {

	forvalues recipe = 1(1)27 {
	 
	sum temp if treatment==`i' & r==`recipe' & tagrecipe==1 & feedback==1
	matrix ifsascoreM[`rowcount',`colcount']= r(mean)
	local rowcount=`rowcount'+1
	 }
	local rowcount=1
	local colcount=`colcount'+1
}	
*Create variables from matrix
svmat double ifsascoreM, name(ifsaav)
matrix drop ifsascoreM
label var ifsaav1 "Control"
label var ifsaav2 "Reminder"
label var ifsaav3 "ManyReminders"


gen xval=.
label var xval "Recipe"
forvalues recipe = 1(1)27 {
	replace xval = `recipe' in `recipe'
}

}

*Plot 
twoway (line ifsaav1 xval, lpattern(solid) lcolor(black) lwidth(thick)) ///
(line  ifsaav2 xval, lpattern(solid) lcolor(gs10) lwidth(thick) ) ///
(line  ifsaav3 xval, lpattern(dash) lcolor(black) lwidth(thick) ), ///
xline(3, lpattern(solid) lcolor(black) lwidth(thin)) /// 
xline(7, lpattern(solid) lcolor(black) lwidth(thin)) /// 
xline(19, lpattern(solid) lcolor(black) lwidth(thin)) /// 
ylabel(0(1)10.5, gmax angle(horizontal)) ///
ytitle("Average IFSA score" "(without bread replacement)")  xtitle("Recipe")  xscale(range(1 27) titlegap(1)) xlabel(1(1)27, angle(vertical)) ///
text(10 1.8 "Module" "1", placement(c) justification(center) size(small)) ///
text(10 5 "Module" "2", placement(c) justification(center) size(small)) ///
text(10 12.5 "Module" "3", placement(c) justification(center) size(small)) ///
text(10 23.5 "Module" "4", placement(c) justification(center) size(small)) ///
legend(label(1 "Control") label(2 "Reminder") label(3 "ManyReminders") pos(6) ring(0) cols(1) region(color(none))) scheme(lean1)
graph export figS6.pdf, replace

drop ifsaav1 ifsaav2 ifsaav3 xval temp


*** Figure S7. Average IFSA score (no feedback study)
********************************************************************************
*net of the score for throwing out bread (if it drops in a recipe)		
quiet{
*Average IFSA score net of the score for throwing out bread (if it drops in a recipe)
gen temp=ifsa_score
replace temp=temp-bread if Breaddrops==1
*Matrix of average scores by recipe; treatments refer to columns and recipes refer to rows
matrix ifsascoreM=J(23,3,.)

local rowcount=1
local colcount=1
forvalues i = 0(1)2 {

	forvalues recipe = 1(1)23 {
	 
	sum temp if treatment==`i' & r==`recipe' & tagrecipe==1 & feedback==0
	matrix ifsascoreM[`rowcount',`colcount']= r(mean)
	local rowcount=`rowcount'+1
	 }
	local rowcount=1
	local colcount=`colcount'+1
}


*Create variables from matrix
svmat double ifsascoreM, name(ifsaav)
matrix drop ifsascoreM
label var ifsaav1 "Control"
label var ifsaav2 "Reminder"
label var ifsaav3 "ManyReminders"


gen xval=.
label var xval "Recipe"
forvalues recipe = 1(1)23 {
	replace xval = `recipe' in `recipe'
}

}
	
*Plot 
twoway (line ifsaav1 xval, lpattern(solid) lcolor(black) lwidth(thick)) ///
(line  ifsaav2 xval, lpattern(solid) lcolor(gs10) lwidth(thick) ) ///
(line  ifsaav3 xval, lpattern(dash) lcolor(black) lwidth(thick) ), ///
xline(3, lpattern(solid) lcolor(black) lwidth(thin)) /// 
xline(7, lpattern(solid) lcolor(black) lwidth(thin)) /// 
xline(19, lpattern(solid) lcolor(black) lwidth(thin)) /// 
ylabel(0(1)10.5, gmax angle(horizontal)) ///
ytitle("Average IFSA score" "(without bread replacement)")  xtitle("Recipe")  xscale(range(1 27) titlegap(1)) xlabel(1(1)27, angle(vertical)) ///
text(10 1.8 "Module" "1", placement(c) justification(center) size(small)) ///
text(10 5 "Module" "2", placement(c) justification(center) size(small)) ///
text(10 12.5 "Module" "3", placement(c) justification(center) size(small)) ///
text(10 21.5 "Module" "4", placement(c) justification(center) size(small)) ///
legend(label(1 "Control") label(2 "Reminder") label(3 "ManyReminders") pos(6) ring(0) cols(1) region(color(none))) scheme(lean1)
graph export figS7.pdf, replace

drop ifsaav1 ifsaav2 ifsaav3 xval temp	
		
	
*** Figure S8. Average IFSA score for the category of actions reminded in Reminder (feedback study)
********************************************************************************	
quiet{
*Matrix of average scores by recipe; treatments refer to columns and recipes refer to rows
matrix ifsascoreM=J(27,3,.)

local rowcount=1
local colcount=1
forvalues i = 0(1)2 {

	forvalues recipe = 1(1)27 {
	 
	sum ifsa_remind if treatment==`i' & r==`recipe' & tagrecipe==1 & feedback==1
	matrix ifsascoreM[`rowcount',`colcount']= r(mean)
	local rowcount=`rowcount'+1
	 }
	local rowcount=1
	local colcount=`colcount'+1
}


*Create variables from matrix
svmat double ifsascoreM, name(ifsaav)
matrix drop ifsascoreM
label var ifsaav1 "Control"
label var ifsaav2 "Reminder"
label var ifsaav3 "ManyReminders"


gen xval=.
label var xval "Recipe"
forvalues recipe = 1(1)27 {
	replace xval = `recipe' in `recipe'
}

}

*Plot 
twoway (line ifsaav1 xval, lpattern(solid) lcolor(black) lwidth(thick)) ///
(line  ifsaav2 xval, lpattern(solid) lcolor(gs10) lwidth(thick) ) ///
(line  ifsaav3 xval, lpattern(dash) lcolor(black) lwidth(thick) ), ///
xline(3, lpattern(solid) lcolor(black) lwidth(thin)) /// 
xline(7, lpattern(solid) lcolor(black) lwidth(thin)) /// 
xline(19, lpattern(solid) lcolor(black) lwidth(thin)) /// 
ylabel(0(1)4, gmax angle(horizontal)) ///
ytitle("Average IFSA score" "(reminded actions)")  xtitle("Recipe")  xscale(range(1 27) titlegap(1)) xlabel(1(1)27, angle(vertical)) ///
text(3.8 1.8 "Module" "1", placement(c) justification(center) size(small)) ///
text(3.8 5 "Module" "2", placement(c) justification(center) size(small)) ///
text(3.8 12.5 "Module" "3", placement(c) justification(center) size(small)) ///
text(3.8 23.5 "Module" "4", placement(c) justification(center) size(small)) ///
legend(label(1 "Control") label(2 "Reminder") label(3 "ManyReminders") pos(6) ring(0) cols(1) region(color(none))) scheme(lean1)
graph export figS8.pdf, replace

drop ifsaav1 ifsaav2 ifsaav3 xval	
	
	
*** Figure S9. Average IFSA score for the category of actions reminded in Reminder (no feedback study)
********************************************************************************	
quiet{
*Matrix of average scores by recipe; treatments refer to columns and recipes refer to rows
matrix ifsascoreM=J(23,3,.)

local rowcount=1
local colcount=1
forvalues i = 0(1)2 {

	forvalues recipe = 1(1)23 {
	 
	sum ifsa_remind if treatment==`i' & r==`recipe' & tagrecipe==1 & feedback==0
	matrix ifsascoreM[`rowcount',`colcount']= r(mean)
	local rowcount=`rowcount'+1
	 }
	local rowcount=1
	local colcount=`colcount'+1
}


*Create variables from matrix
svmat double ifsascoreM, name(ifsaav)
matrix drop ifsascoreM
label var ifsaav1 "Control"
label var ifsaav2 "Reminder"
label var ifsaav3 "ManyReminders"


gen xval=.
label var xval "Recipe"
forvalues recipe = 1(1)23 {
	replace xval = `recipe' in `recipe'
}

}

*Plot 
twoway (line ifsaav1 xval, lpattern(solid) lcolor(black) lwidth(thick)) ///
(line  ifsaav2 xval, lpattern(solid) lcolor(gs10) lwidth(thick) ) ///
(line  ifsaav3 xval, lpattern(dash) lcolor(black) lwidth(thick) ), ///
xline(3, lpattern(solid) lcolor(black) lwidth(thin)) /// 
xline(7, lpattern(solid) lcolor(black) lwidth(thin)) /// 
xline(19, lpattern(solid) lcolor(black) lwidth(thin)) /// 
ylabel(0(1)4, gmax angle(horizontal)) ///
ytitle("Average IFSA score"  "(reminded actions)")  xtitle("Recipe")  xscale(range(1 23) titlegap(1)) xlabel(1(1)27, angle(vertical)) ///
text(3.8 1.8 "Module" "1", placement(c) justification(center) size(small)) ///
text(3.8 5 "Module" "2", placement(c) justification(center) size(small)) ///
text(3.8 12.5 "Module" "3", placement(c) justification(center) size(small)) ///
text(3.8 21.5 "Module" "4", placement(c) justification(center) size(small)) ///
legend(label(1 "Control") label(2 "Reminder") label(3 "ManyReminders") pos(6) ring(0) cols(1) region(color(none))) scheme(lean1)
graph export figS9.pdf, replace

drop ifsaav1 ifsaav2 ifsaav3 xval
	
	
*** Figure S10. Average IFSA score for the categories of actions reminded in ManyReminders (feedback study)
********************************************************************************		
quiet{
*Matrix of average scores by recipe; treatments refer to columns and recipes refer to rows
matrix ifsascoreM=J(27,3,.)

local rowcount=1
local colcount=1
forvalues i = 0(1)2 {

	forvalues recipe = 1(1)27 {
	 
	sum ifsa_many_remind if treatment==`i' & r==`recipe' & tagrecipe==1 & feedback==1
	matrix ifsascoreM[`rowcount',`colcount']= r(mean)
	local rowcount=`rowcount'+1
	 }
	local rowcount=1
	local colcount=`colcount'+1
}


*Create variables from matrix
svmat double ifsascoreM, name(ifsaav)
matrix drop ifsascoreM
label var ifsaav1 "Control"
label var ifsaav2 "Reminder"
label var ifsaav3 "ManyReminders"


gen xval=.
label var xval "Recipe"
forvalues recipe = 1(1)27 {
	replace xval = `recipe' in `recipe'
}

}

*Plot 
twoway (line ifsaav1 xval, lpattern(solid) lcolor(black) lwidth(thick)) ///
(line  ifsaav2 xval, lpattern(solid) lcolor(gs10) lwidth(thick) ) ///
(line  ifsaav3 xval, lpattern(dash) lcolor(black) lwidth(thick) ), ///
xline(3, lpattern(solid) lcolor(black) lwidth(thin)) /// 
xline(7, lpattern(solid) lcolor(black) lwidth(thin)) /// 
xline(19, lpattern(solid) lcolor(black) lwidth(thin)) /// 
ylabel(0(1)6, gmax angle(horizontal)) ///
ytitle("Average IFSA score"  "(reminded actions in ManyReminders)")  xtitle("Recipe")  xscale(range(1 27) titlegap(1)) xlabel(1(1)27, angle(vertical)) ///
text(5.8 1.8 "Module" "1", placement(c) justification(center) size(small)) ///
text(5.8 5 "Module" "2", placement(c) justification(center) size(small)) ///
text(5.8 12.5 "Module" "3", placement(c) justification(center) size(small)) ///
text(5.8 23.5 "Module" "4", placement(c) justification(center) size(small)) ///
legend(label(1 "Control") label(2 "Reminder") label(3 "ManyReminders") pos(6) ring(0) cols(1) region(color(none))) scheme(lean1)
graph export figS10.pdf, replace

drop ifsaav1 ifsaav2 ifsaav3 xval
	
	
*** Figure S11. Average IFSA score for the categories of actions reminded in ManyReminders (no feedback study)
********************************************************************************		
quiet{
*Matrix of average scores by recipe; treatments refer to columns and recipes refer to rows
matrix ifsascoreM=J(23,3,.)

local rowcount=1
local colcount=1
forvalues i = 0(1)2 {

	forvalues recipe = 1(1)23 {
	 
	sum ifsa_many_remind if treatment==`i' & r==`recipe' & tagrecipe==1 & feedback==0
	matrix ifsascoreM[`rowcount',`colcount']= r(mean)
	local rowcount=`rowcount'+1
	 }
	local rowcount=1
	local colcount=`colcount'+1
}


*Create variables from matrix
svmat double ifsascoreM, name(ifsaav)
matrix drop ifsascoreM
label var ifsaav1 "Control"
label var ifsaav2 "Reminder"
label var ifsaav3 "ManyReminders"


gen xval=.
label var xval "Recipe"
forvalues recipe = 1(1)23 {
	replace xval = `recipe' in `recipe'
}

}

*Plot 
twoway (line ifsaav1 xval, lpattern(solid) lcolor(black) lwidth(thick)) ///
(line  ifsaav2 xval, lpattern(solid) lcolor(gs10) lwidth(thick) ) ///
(line  ifsaav3 xval, lpattern(dash) lcolor(black) lwidth(thick) ), ///
xline(3, lpattern(solid) lcolor(black) lwidth(thin)) /// 
xline(7, lpattern(solid) lcolor(black) lwidth(thin)) /// 
xline(19, lpattern(solid) lcolor(black) lwidth(thin)) /// 
ylabel(0(1)6, gmax angle(horizontal)) ///
ytitle("Average IFSA score"  "(reminded actions in ManyReminders)")  xtitle("Recipe")  xscale(range(1 27) titlegap(1)) xlabel(1(1)2, angle(vertical)) ///
text(5.8 1.8 "Module" "1", placement(c) justification(center) size(small)) ///
text(5.8 5 "Module" "2", placement(c) justification(center) size(small)) ///
text(5.8 12.5 "Module" "3", placement(c) justification(center) size(small)) ///
text(5.8 21.5 "Module" "4", placement(c) justification(center) size(small)) ///
legend(label(1 "Control") label(2 "Reminder") label(3 "ManyReminders") pos(6) ring(0) cols(1) region(color(none))) scheme(lean1)
graph export figS11.pdf, replace

drop ifsaav1 ifsaav2 ifsaav3 xval	
	
	
	
*** Figure S12. Average IFSA score for the categories of actions not reminded in Reminders (feedback study)
********************************************************************************		
*net of the score for throwing out bread (if it drops in a recipe)	
quiet{
*Average IFSA score net of the score for throwing out bread (if it drops in a recipe)
gen temp=ifsa_not_remind
replace temp=temp-bread if Breaddrops==1	
*Matrix of average scores by recipe; treatments refer to columns and recipes refer to rows
matrix ifsascoreM=J(27,3,.)

local rowcount=1
local colcount=1
forvalues i = 0(1)2 {

	forvalues recipe = 1(1)27 {
	 
	sum temp if treatment==`i' & r==`recipe' & tagrecipe==1 & feedback==1
	matrix ifsascoreM[`rowcount',`colcount']= r(mean)
	local rowcount=`rowcount'+1
	 }
	local rowcount=1
	local colcount=`colcount'+1
}


*Create variables from matrix
svmat double ifsascoreM, name(ifsaav)
matrix drop ifsascoreM
label var ifsaav1 "Control"
label var ifsaav2 "Reminder"
label var ifsaav3 "ManyReminders"


gen xval=.
label var xval "Recipe"
forvalues recipe = 1(1)27 {
	replace xval = `recipe' in `recipe'
}

}

*Plot 
twoway (line ifsaav1 xval, lpattern(solid) lcolor(black) lwidth(thick)) ///
(line  ifsaav2 xval, lpattern(solid) lcolor(gs10) lwidth(thick) ) ///
(line  ifsaav3 xval, lpattern(dash) lcolor(black) lwidth(thick) ), ///
xline(3, lpattern(solid) lcolor(black) lwidth(thin)) /// 
xline(7, lpattern(solid) lcolor(black) lwidth(thin)) /// 
xline(19, lpattern(solid) lcolor(black) lwidth(thin)) /// 
ylabel(0(1)7.5, gmax angle(horizontal)) ///
ytitle("Average IFSA score"  "(non-reminded actions in Reminder" "without bread replacement)" )  xtitle("Recipe")  xscale(range(1 27) titlegap(1)) xlabel(1(1)27, angle(vertical)) ///
text(7.2 1.8 "Module" "1", placement(c) justification(center) size(small)) ///
text(7.2 5 "Module" "2", placement(c) justification(center) size(small)) ///
text(7.2 12.5 "Module" "3", placement(c) justification(center) size(small)) ///
text(7.2 23.5 "Module" "4", placement(c) justification(center) size(small)) ///
legend(label(1 "Control") label(2 "Reminder") label(3 "ManyReminders") pos(6) ring(0) cols(1) region(color(none))) scheme(lean1)
graph export figS12.pdf, replace

drop ifsaav1 ifsaav2 ifsaav3 xval temp


*** Figure S13. Average IFSA score for the categories of actions not reminded in Reminder (no feedback study)
********************************************************************************		
*net of the score for throwing out bread (if it drops in a recipe)	
quiet{
*Average IFSA score net of the score for throwing out bread (if it drops in a recipe)
gen temp=ifsa_not_remind
replace temp=temp-bread if Breaddrops==1	
*Matrix of average scores by recipe; treatments refer to columns and recipes refer to rows
matrix ifsascoreM=J(27,3,.)

local rowcount=1
local colcount=1
forvalues i = 0(1)2 {

	forvalues recipe = 1(1)27 {
	 
	sum temp if treatment==`i' & r==`recipe' & tagrecipe==1 & feedback==0
	matrix ifsascoreM[`rowcount',`colcount']= r(mean)
	local rowcount=`rowcount'+1
	 }
	local rowcount=1
	local colcount=`colcount'+1
}


*Create variables from matrix
svmat double ifsascoreM, name(ifsaav)
matrix drop ifsascoreM
label var ifsaav1 "Control"
label var ifsaav2 "Reminder"
label var ifsaav3 "ManyReminders"


gen xval=.
label var xval "Recipe"
forvalues recipe = 1(1)27 {
	replace xval = `recipe' in `recipe'
}

}

*Plot 
twoway (line ifsaav1 xval, lpattern(solid) lcolor(black) lwidth(thick)) ///
(line  ifsaav2 xval, lpattern(solid) lcolor(gs10) lwidth(thick) ) ///
(line  ifsaav3 xval, lpattern(dash) lcolor(black) lwidth(thick) ), ///
xline(3, lpattern(solid) lcolor(black) lwidth(thin)) /// 
xline(7, lpattern(solid) lcolor(black) lwidth(thin)) /// 
xline(19, lpattern(solid) lcolor(black) lwidth(thin)) /// 
ylabel(0(1)7.5, gmax angle(horizontal)) /// 
ytitle("Average IFSA score"  "(non-reminded actions in Reminder" "without bread replacement)" )  xtitle("Recipe")  xscale(range(1 27) titlegap(1)) xlabel(1(1)27, angle(vertical)) ///
text(7.2 1.8 "Module" "1", placement(c) justification(center) size(small)) ///
text(7.2 5 "Module" "2", placement(c) justification(center) size(small)) ///
text(7.2 12.5 "Module" "3", placement(c) justification(center) size(small)) ///
text(7.2 23.5 "Module" "4", placement(c) justification(center) size(small)) ///
legend(label(1 "Control") label(2 "Reminder") label(3 "ManyReminders") pos(6) ring(0) cols(1) region(color(none))) scheme(lean1)
graph export figS13.pdf, replace

drop ifsaav1 ifsaav2 ifsaav3 xval temp	
	
	
	
*** Figure S14. Average IFSA score for the categories of actions not reminded in ManyReminders (feedback study)
********************************************************************************
*net of the score for throwing out bread (if it drops in a recipe)			
quiet{
*Average IFSA score net of the score for throwing out bread (if it drops in a recipe)
gen temp=ifsa_never_remind
replace temp=temp-bread if Breaddrops==1	
*Matrix of average scores by recipe; treatments refer to columns and recipes refer to rows
matrix ifsascoreM=J(27,3,.)

local rowcount=1
local colcount=1
forvalues i = 0(1)2 {

	forvalues recipe = 1(1)27 {
	 
	sum temp if treatment==`i' & r==`recipe' & tagrecipe==1 & feedback==1
	matrix ifsascoreM[`rowcount',`colcount']= r(mean)
	local rowcount=`rowcount'+1
	 }
	local rowcount=1
	local colcount=`colcount'+1
}


*Create variables from matrix
svmat double ifsascoreM, name(ifsaav)
matrix drop ifsascoreM
label var ifsaav1 "Control"
label var ifsaav2 "Reminder"
label var ifsaav3 "ManyReminders"


gen xval=.
label var xval "Recipe"
forvalues recipe = 1(1)27 {
	replace xval = `recipe' in `recipe'
}

}

*Plot average ifsascores
twoway (line ifsaav1 xval, lpattern(solid) lcolor(black) lwidth(thick)) ///
(line  ifsaav2 xval, lpattern(solid) lcolor(gs10) lwidth(thick) ) ///
(line  ifsaav3 xval, lpattern(dash) lcolor(black) lwidth(thick) ), ///
xline(3, lpattern(solid) lcolor(black) lwidth(thin)) /// 
xline(7, lpattern(solid) lcolor(black) lwidth(thin)) /// 
xline(19, lpattern(solid) lcolor(black) lwidth(thin)) /// 
ylabel(0(1)5.5, gmax angle(horizontal)) ///
ytitle("Average IFSA score"  "(never reminded actions" "without bread replacement)")  xtitle("Recipe")  xscale(range(1 27) titlegap(1)) xlabel(1(1)27, angle(vertical)) ///
text(5.2 1.8 "Module" "1", placement(c) justification(center) size(small)) ///
text(5.2 5 "Module" "2", placement(c) justification(center) size(small)) ///
text(5.2 12.5 "Module" "3", placement(c) justification(center) size(small)) ///
text(5.2 23.5 "Module" "4", placement(c) justification(center) size(small)) ///
legend(label(1 "Control") label(2 "Reminder") label(3 "ManyReminders") pos(6) ring(0) cols(1) region(color(none))) scheme(lean1)
graph export figS14.pdf, replace

drop ifsaav1 ifsaav2 ifsaav3 xval temp

*** Figure S15. Average IFSA score for the categories of actions not reminded in ManyReminders (no feedback study)
********************************************************************************		
*net of the score for throwing out bread (if it drops in a recipe)			
quiet{
*Average IFSA score net of the score for throwing out bread (if it drops in a recipe)
gen temp=ifsa_never_remind
replace temp=temp-bread if Breaddrops==1	
*Matrix of average scores by recipe; treatments refer to columns and recipes refer to rows
matrix ifsascoreM=J(27,3,.)

local rowcount=1
local colcount=1
forvalues i = 0(1)2 {

	forvalues recipe = 1(1)27 {
	 
	sum temp if treatment==`i' & r==`recipe' & tagrecipe==1 & feedback==0
	matrix ifsascoreM[`rowcount',`colcount']= r(mean)
	local rowcount=`rowcount'+1
	 }
	local rowcount=1
	local colcount=`colcount'+1
}


*Create variables from matrix
svmat double ifsascoreM, name(ifsaav)
matrix drop ifsascoreM
label var ifsaav1 "Control"
label var ifsaav2 "Reminder"
label var ifsaav3 "ManyReminders"


gen xval=.
label var xval "Recipe"
forvalues recipe = 1(1)27 {
	replace xval = `recipe' in `recipe'
}

}

*Plot average ifsascores
twoway (line ifsaav1 xval, lpattern(solid) lcolor(black) lwidth(thick)) ///
(line  ifsaav2 xval, lpattern(solid) lcolor(gs10) lwidth(thick) ) ///
(line  ifsaav3 xval, lpattern(dash) lcolor(black) lwidth(thick) ), ///
xline(3, lpattern(solid) lcolor(black) lwidth(thin)) /// 
xline(7, lpattern(solid) lcolor(black) lwidth(thin)) /// 
xline(19, lpattern(solid) lcolor(black) lwidth(thin)) /// 
ylabel(0(1)5.5, gmax angle(horizontal)) ///
ytitle("Average IFSA score"  "(never reminded actions" "without bread replacement)")  xtitle("Recipe")  xscale(range(1 27) titlegap(1)) xlabel(1(1)27, angle(vertical)) ///
text(5.2 1.8 "Module" "1", placement(c) justification(center) size(small)) ///
text(5.2 5 "Module" "2", placement(c) justification(center) size(small)) ///
text(5.2 12.5 "Module" "3", placement(c) justification(center) size(small)) ///
text(5.2 23.5 "Module" "4", placement(c) justification(center) size(small)) ///
legend(label(1 "Control") label(2 "Reminder") label(3 "ManyReminders") pos(6) ring(0) cols(1) region(color(none))) scheme(lean1)
graph export figS15.pdf, replace

drop ifsaav1 ifsaav2 ifsaav3 xval temp	


*** Table S12. Balance table (feedback study)
********************************************************************************
balancetable (mean if treatment==0 & taguser==1 & feedback==1) (mean if treatment==1 & taguser==1& feedback==1) (mean if treatment==2 & taguser==1& feedback==1) (diff treat_R if treatment!=2 & taguser==1& feedback==1) (diff treat_MR if treatment!=1  & taguser==1& feedback==1) (diff treat_R if treatment!=0 & taguser==1& feedback==1) $BCOV using "TableS12.tex", replace ///
ctitles("Mean Control" "Mean treat. R" "Mean treat. MR" "Treat. R vs Control" "Treat. MR vs Control" "Treat. R vs Treat. MR")


*** Table S13. Balance table (no feedback study)
********************************************************************************
balancetable (mean if treatment==0 & taguser==1 & feedback==0) (mean if treatment==1 & taguser==1& feedback==0) (mean if treatment==2 & taguser==1& feedback==0) (diff treat_R if treatment!=2 & taguser==1& feedback==0) (diff treat_MR if treatment!=1  & taguser==1& feedback==0) (diff treat_R if treatment!=0 & taguser==1& feedback==0) $BCOV using "TableS13.tex", replace ///
ctitles("Mean Control" "Mean treat. R" "Mean treat. MR" "Treat. R vs Control" "Treat. MR vs Control" "Treat. R vs Treat. MR")



********************************************************************************
***   	SI 4. Main hypotheses: statements and regression tables    			 ***
********************************************************************************


*** Table S4. Hypothesis 1
********************************************************************************
quiet{
eststo clear
*All actions

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==2
	
	*Feedback study
	reg ifsa_score pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp1aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp1bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp1cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	reg ifsa_score pretreatscore treat_R i.r if feedback==0, vce(cluster pid) 
	eststo hyp1aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp1bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp1cNoFB
	estadd local Controls  "\mbox{Ext}" 
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	restore



*Reminded actions

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==2

	*Feedback study	
	reg ifsa_remind pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp1iaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp1ibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp1icFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study	
	reg ifsa_remind pretreatscore treat_R i.r if feedback==0, vce(cluster pid) 
	eststo hyp1iaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp1ibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp1icNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore


*Non-reminded actions

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==2

	*Feedback study	
	reg ifsa_not_remind pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp1iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp1iibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp1iicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_not_remind pretreatscore treat_R i.r if feedback==0, vce(cluster pid) 
	eststo hyp1iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp1iibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp1iicNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	restore	
}
*Panel A: Feedback study	
esttab hyp1aFB hyp1bFB hyp1cFB hyp1iaFB hyp1ibFB hyp1icFB hyp1iiaFB hyp1iibFB hyp1iicFB using TableS4PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 1 (feedback study) \label{tab:H1}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 8; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab hyp1aNoFB hyp1bNoFB hyp1cNoFB hyp1iaNoFB hyp1ibNoFB hyp1icNoFB hyp1iiaNoFB hyp1iibNoFB hyp1iicNoFB using TableS4PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 1 (no feedback study) \label{tab:H1}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 8; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	

*** Table with coefficient and 95% confidence interval for the regressions with extended set of controls to be used in Figure 2

*Feedback study	
esttab hyp1cFB hyp1icFB hyp1iicFB using TableS4PanelACI.csv, b(2)  ci(2) keep (treat_R)  compress label plain replace

*No feedback study	
esttab hyp1cNoFB hyp1icNoFB hyp1iicNoFB using TableS4PanelBCI.csv, b(2)  ci(2) keep (treat_R)  compress label plain replace

*Complete set of 95% confidence intervals:

*Feedback study	
esttab hyp1aFB hyp1bFB hyp1cFB hyp1iaFB hyp1ibFB hyp1icFB hyp1iiaFB hyp1iibFB hyp1iicFB using TableS4PanelACI.tex, replace b(2)  ci(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 1 (feedback study) \label{tab:H1CI}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 8; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "This table reports the 95% confidence intervals instead of std.errors." )		

*No feedback study	
esttab hyp1aNoFB hyp1bNoFB hyp1cNoFB hyp1iaNoFB hyp1ibNoFB hyp1icNoFB hyp1iiaNoFB hyp1iibNoFB hyp1iicNoFB using TableS4PanelBCI.tex, replace b(2) ci(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 1 (no feedback study) \label{tab:H1CI}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 8; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "This table reports the 95% confidence intervals instead of std.errors." )	


*** Table S5. Hypothesis 2 and Secondary Hypothesis 2
********************************************************************************
quiet{
eststo clear
*Hypothesis 2: All actions

	preserve
	drop if level<8
	drop if tagrecipe==0
	drop if level>8
	drop if treatment==0
	
	*Feedback study
	reg ifsa_score pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo hyp2aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp2bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)		
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp2cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	

	*No feedback study
	reg ifsa_score pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo hyp2aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp2bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp2cNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	
	restore
	

	*Reminded actions

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==0
	
	*Feedback study
	reg ifsa_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo shyp2aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp2bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp2cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	reg ifsa_remind pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo shyp2aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp2bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp2cNoFB
	estadd local Controls  "\mbox{Ext}" 
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	restore


*Secondary Hypothesis 2	
*Reminded actions in ManyReminders

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==0

	*Feedback study	
	reg ifsa_many_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo shyp2iaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp2ibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp2icFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study	
	reg ifsa_many_remind pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo shyp2iaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp2ibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp2icNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore


*Never-reminded actions

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==0

	*Feedback study	
	reg ifsa_never_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo shyp2iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp2iibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp2iicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_never_remind pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo shyp2iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp2iibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp2iicNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	restore	
		
}
*Panel A: Feedback study	
esttab hyp2aFB hyp2bFB hyp2cFB shyp2aFB shyp2bFB shyp2cFB shyp2iaFB shyp2ibFB shyp2icFB shyp2iiaFB shyp2iibFB shyp2iicFB using TableS5PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 2 and Secondary Hypothesis 2 (feedback study) \label{tab:H2SH2}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Reminded actions in MR" "Never-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 8; (4)-(6) Handwashing score in level 8; (7)-(9) Reminded actions in {\em ManyReminders} in level 8,(10)-(12) All IFSAs except those reminded in {\em ManyReminders} in level 8." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab hyp2aNoFB hyp2bNoFB hyp2cNoFB shyp2aNoFB shyp2bNoFB shyp2cNoFB shyp2iaNoFB shyp2ibNoFB shyp2icNoFB shyp2iiaNoFB shyp2iibNoFB shyp2iicNoFB using TableS5PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 2 and Secondary Hypothesis 2 (no feedback study) \label{tab:H2SH2}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Reminded actions in MR" "Never-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 8; (4)-(6) Handwashing score in level 8; (7)-(9) Reminded actions in {\em ManyReminders} in level 8,(10)-(12) All IFSAs except those reminded in {\em ManyReminders} in level 8." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	

*** Table with coefficient and 95% confidence interval for the regressions with extended set of controls to be used in Figure 2

*Feedback study	
esttab hyp2cFB shyp2cFB shyp2icFB shyp2iicFB  using TableS5PanelACI.csv, b(2)  ci(2) keep (treat_MRR)  compress label plain replace

*No feedback study	
esttab hyp2cNoFB shyp2cNoFB shyp2icNoFB shyp2iicNoFB using TableS5PanelBCI.csv, b(2)  ci(2) keep (treat_MRR)  compress label plain replace

*Complete set of 95% confidence intervals:

*Feedback study	
esttab hyp2aFB hyp2bFB hyp2cFB shyp2aFB shyp2bFB shyp2cFB shyp2iaFB shyp2ibFB shyp2icFB shyp2iiaFB shyp2iibFB shyp2iicFB using TableS5PanelACI.tex, replace b(2) ci(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 2 and Secondary Hypothesis 2 (feedback study) \label{tab:H2SH2}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Reminded actions in MR" "Never-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 8; (4)-(6) Handwashing score in level 8; (7)-(9) Reminded actions in {\em ManyReminders} in level 8,(10)-(12) All IFSAs except those reminded in {\em ManyReminders} in level 8." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "This table reports the 95% confidence intervals instead of std.errors."  )		

*No feedback study	
esttab hyp2aNoFB hyp2bNoFB hyp2cNoFB shyp2aNoFB shyp2bNoFB shyp2cNoFB shyp2iaNoFB shyp2ibNoFB shyp2icNoFB shyp2iiaNoFB shyp2iibNoFB shyp2iicNoFB using TableS5PanelBCI.tex, replace b(2) ci(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 2 and Secondary Hypothesis 2 (no feedback study) \label{tab:H2SH2}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Reminded actions in MR" "Never-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 8; (4)-(6) Handwashing score in level 8; (7)-(9) Reminded actions in {\em ManyReminders} in level 8,(10)-(12) All IFSAs except those reminded in {\em ManyReminders} in level 8." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "This table reports the 95% confidence intervals instead of std.errors.")	


*** Table S6. Hypothesis 3
********************************************************************************
quiet{
eststo clear	
*All actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==2

	*Feedback study
	reg ifsa_score pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp3aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp3bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp3cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	reg ifsa_score pretreatscore treat_R i.r if feedback==0, vce(cluster pid) 
	eststo hyp3aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp3bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp3cNoFB
	estadd local Controls  "\mbox{Ext}" 
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	restore



*Reminded actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==2

	*Feedback study	
	reg ifsa_remind pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp3iaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp3ibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp3icFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study	
	reg ifsa_remind pretreatscore treat_R i.r if feedback==0, vce(cluster pid) 
	eststo hyp3iaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp3ibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp3icNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore


*Non-reminded actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==2

	*Feedback study	
	reg ifsa_not_remind pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp3iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp3iibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp3iicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_not_remind pretreatscore treat_R i.r if feedback==0, vce(cluster pid) 
	eststo hyp3iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp3iibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp3iicNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	restore	
}
*Panel A: Feedback study	
esttab hyp3aFB hyp3bFB hyp3cFB hyp3iaFB hyp3ibFB hyp3icFB hyp3iiaFB hyp3iibFB hyp3iicFB using TableS6PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Hypotheses 3 and 4 (feedback study) \label{tab:H34}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 11; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab hyp3aNoFB hyp3bNoFB hyp3cNoFB hyp3iaNoFB hyp3ibNoFB hyp3icNoFB hyp3iiaNoFB hyp3iibNoFB hyp3iicNoFB using TableS6PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Hypotheses 3 and 4 (no feedback study) \label{tab:H34}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 11; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	

*** Table with coefficient and 95% confidence interval for the regressions with extended set of controls to be used in Figure 2

*Feedback study	
esttab hyp3cFB hyp3icFB hyp3iicFB using TableS6PanelACI.csv, b(2)  ci(2) keep (treat_R)  compress label plain replace

*No feedback study	
esttab hyp3cNoFB hyp3icNoFB hyp3iicNoFB using TableS6PanelBCI.csv, b(2)  ci(2) keep (treat_R)  compress label plain replace

*Complete set of 95% confidence intervals:

*Feedback study	
esttab hyp3aFB hyp3bFB hyp3cFB hyp3iaFB hyp3ibFB hyp3icFB hyp3iiaFB hyp3iibFB hyp3iicFB using TableS6PanelACI.tex, replace b(2) ci(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Hypotheses 3 and 4 (feedback study) \label{tab:H34}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 11; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "This table reports the 95% confidence intervals instead of std.errors." )		

*No feedback study	
esttab hyp3aNoFB hyp3bNoFB hyp3cNoFB hyp3iaNoFB hyp3ibNoFB hyp3icNoFB hyp3iiaNoFB hyp3iibNoFB hyp3iicNoFB using TableS6PanelBCI.tex, replace b(2) ci(2) ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Hypotheses 3 and 4 (no feedback study) \label{tab:H34}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 11; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "This table reports the 95% confidence intervals instead of std.errors." )


*** Table S7. Hypothesis 4 and Secondary Hypothesis 4
********************************************************************************
quiet{
*Hypothesis 4
	*All actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==0
	
	*Feedback study
	reg ifsa_score pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo hyp4aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp4bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)		
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp4cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	

	*No feedback study
	reg ifsa_score pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo hyp4aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp4bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp4cNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore
	
*Secondary Hypothesis 4
*Reminded actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==0
	
	*Feedback study
	reg ifsa_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo shyp4aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp4bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp4cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	reg ifsa_remind pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo shyp4aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp4bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp4cNoFB
	estadd local Controls  "\mbox{Ext}" 
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	restore



*Reminded actions in ManyReminders

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==0

	*Feedback study	
	reg ifsa_many_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo shyp4iaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp4ibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp4icFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study	
	reg ifsa_many_remind pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo shyp4iaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp4ibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp4icNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore


*Never-reminded actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==0

	*Feedback study	
	reg ifsa_never_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo shyp4iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp4iibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp4iicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_never_remind pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo shyp4iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp4iibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp4iicNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	restore	
}
*Panel A: Feedback study	
esttab hyp4aFB hyp4bFB hyp4cFB shyp4aFB shyp4bFB shyp4cFB shyp4iaFB shyp4ibFB shyp4icFB shyp4iiaFB shyp4iibFB shyp4iicFB  using TableS7PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 4 and Secondary Hypothesis 4 (feedback study) \label{tab:H5SH5}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Reminded actions in MR" "Never-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 11; (4)-(6) Handwashing score in level 11; (7)-(9) Reminded actions in {\em ManyReminders} in level 11,(10)-(12) All IFSAs except those reminded in {\em ManyReminders} in level 11." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab hyp4aNoFB hyp4bNoFB hyp4cNoFB shyp4aNoFB shyp4bNoFB shyp4cNoFB shyp4iaNoFB shyp4ibNoFB shyp4icNoFB shyp4iiaNoFB shyp4iibNoFB shyp4iicNoFB  using TableS7PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 4 and Secondary Hypothesis 4 (no feedback study) \label{tab:H5SH5}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Reminded actions in MR" "Never-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 11; (4)-(6) Handwashing score in level 11; (7)-(9) Reminded actions in {\em ManyReminders} in level 11,(10)-(12) All IFSAs except those reminded in {\em ManyReminders} in level 11." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	

*** Table with coefficient and 95% confidence interval for the regressions with extended set of controls to be used in Figure 2

*Feedback study	
esttab hyp4cFB shyp4cFB shyp4icFB shyp4iicFB using TableS7PanelACI.csv, b(2)  ci(2) keep (treat_MRR)  compress label plain replace

*No feedback study	
esttab hyp4cNoFB shyp4cNoFB shyp4icNoFB shyp4iicNoFB using TableS7PanelBCI.csv, b(2)  ci(2) keep (treat_MRR)  compress label plain replace

*Complete set of 95% confidence intervals:

*Feedback study	
esttab hyp4aFB hyp4bFB hyp4cFB shyp4aFB shyp4bFB shyp4cFB shyp4iaFB shyp4ibFB shyp4icFB shyp4iiaFB shyp4iibFB shyp4iicFB  using TableS7PanelACI.tex, replace b(2) ci(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 4 and Secondary Hypothesis 4 (feedback study) \label{tab:H5SH5}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Reminded actions in MR" "Never-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 11; (4)-(6) Handwashing score in level 11; (7)-(9) Reminded actions in {\em ManyReminders} in level 11,(10)-(12) All IFSAs except those reminded in {\em ManyReminders} in level 11." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "This table reports the 95% confidence intervals instead of std.errors." )		



*No feedback study	
esttab hyp4aNoFB hyp4bNoFB hyp4cNoFB shyp4aNoFB shyp4bNoFB shyp4cNoFB shyp4iaNoFB shyp4ibNoFB shyp4icNoFB shyp4iiaNoFB shyp4iibNoFB shyp4iicNoFB  using TableS7PanelBCI.tex, replace b(2) ci(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 4 and Secondary Hypothesis 4 (no feedback study) \label{tab:H5SH5}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Reminded actions in MR" "Never-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 11; (4)-(6) Handwashing score in level 11; (7)-(9) Reminded actions in {\em ManyReminders} in level 11,(10)-(12) All IFSAs except those reminded in {\em ManyReminders} in level 11." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "This table reports the 95% confidence intervals instead of std.errors." )	


********************************************************************************
***   					             SI 5. Robustness    				     ***
********************************************************************************


*** Table S21. Hypothesis 1 (all recipes in module 3)
********************************************************************************

quiet{
eststo clear
*All actions

	preserve
	drop if level<8
	drop if level>10
	drop if tagrecipe==0
	drop if treatment==2
	
	*Feedback study
	reg ifsa_score pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp1aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp1bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp1cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	reg ifsa_score pretreatscore treat_R i.r if feedback==0, vce(cluster pid) 
	eststo hyp1aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp1bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp1cNoFB
	estadd local Controls  "\mbox{Ext}" 
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	restore



*Reminded actions

	preserve
	drop if level<8
	drop if level>10
	drop if tagrecipe==0
	drop if treatment==2

	*Feedback study	
	reg ifsa_remind pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp1iaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp1ibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp1icFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study	
	reg ifsa_remind pretreatscore treat_R i.r if feedback==0, vce(cluster pid) 
	eststo hyp1iaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp1ibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp1icNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore


*Non-reminded actions

	preserve
	drop if level<8
	drop if level>10
	drop if tagrecipe==0
	drop if treatment==2

	*Feedback study	
	reg ifsa_not_remind pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp1iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp1iibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp1iicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_not_remind pretreatscore treat_R i.r if feedback==0, vce(cluster pid) 
	eststo hyp1iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp1iibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp1iicNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	restore	
}
*Panel A: Feedback study	
esttab hyp1aFB hyp1bFB hyp1cFB hyp1iaFB hyp1ibFB hyp1icFB hyp1iiaFB hyp1iibFB hyp1iicFB using TableS21PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Robustness Hypothesis 1 (feedback study) \label{tab:RobH1}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in levels 8-10; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in levels 8-10." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab hyp1aNoFB hyp1bNoFB hyp1cNoFB hyp1iaNoFB hyp1ibNoFB hyp1icNoFB hyp1iiaNoFB hyp1iibNoFB hyp1iicNoFB using TableS21PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Robustness Hypothesis 1 (no feedback study) \label{tab:RobH1}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in levels 8-10; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in levels 8-10." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	


*** Table S22. Secondary Hypothesis 1 (all recipes in module 3)
********************************************************************************
quiet{
eststo clear
*All actions

	preserve
	drop if level<8
	drop if level>10
	drop if tagrecipe==0
	drop if treatment==1
	
	*Feedback study
	reg ifsa_score pretreatscore treat_MR i.r if feedback==1, vce(cluster pid) 
	eststo shyp1aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score pretreatscore treat_MR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp1bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score pretreatscore treat_MR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp1cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	reg ifsa_score pretreatscore treat_MR i.r if feedback==0, vce(cluster pid) 
	eststo shyp1aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_score pretreatscore treat_MR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp1bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_score pretreatscore treat_MR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp1cNoFB
	estadd local Controls  "\mbox{Ext}" 
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	restore



*Reminded actions in ManyReminders

	preserve
	drop if level<8
	drop if level>10
	drop if tagrecipe==0
	drop if treatment==1

	*Feedback study	
	reg ifsa_many_remind pretreatscore treat_MR i.r if feedback==1, vce(cluster pid) 
	eststo shyp1iaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp1ibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp1icFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study	
	reg ifsa_many_remind pretreatscore treat_MR i.r if feedback==0, vce(cluster pid) 
	eststo shyp1iaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp1ibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp1icNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore


*Never-reminded actions

	preserve
	drop if level<8
	drop if level>10
	drop if tagrecipe==0
	drop if treatment==1

	*Feedback study	
	reg ifsa_never_remind pretreatscore treat_MR i.r if feedback==1, vce(cluster pid) 
	eststo shyp1iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==0 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp1iibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp1iicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_never_remind pretreatscore treat_MR i.r if feedback==0, vce(cluster pid) 
	eststo shyp1iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp1iibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_never_remind pretreatscore treat_MR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp1iicNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	restore	
}
*Panel A: Feedback study	
esttab shyp1aFB shyp1bFB shyp1cFB shyp1iaFB shyp1ibFB shyp1icFB shyp1iiaFB shyp1iibFB shyp1iicFB using TableS22PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Robustness Secondary Hypothesis 1 (feedback study) \label{tab:SH1}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in levels 8-10; (4)-(6) Handwashing score in levels 8-10; (7)-(9) All IFSAs except handwashing in levels 8-10." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab shyp1aNoFB shyp1bNoFB shyp1cNoFB shyp1iaNoFB shyp1ibNoFB shyp1icNoFB shyp1iiaNoFB shyp1iibNoFB shyp1iicNoFB using TableS22PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Robustness Secondary Hypothesis 1 (no feedback study) \label{tab:SH1}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in levels 8-10; (4)-(6) Handwashing score in levels 8-10; (7)-(9) All IFSAs except handwashing in levels 8-10." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	
		

*** Table S23. Hypothesis 2 and Secondary Hypothesis 2 (all recipes in module 3)
********************************************************************************
quiet{
eststo clear
*Hypothesis 2: All actions

	*All actions

	preserve
	drop if level<8
	drop if level>10
	drop if tagrecipe==0
	drop if treatment==0
	
	*Feedback study
	reg ifsa_score pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo hyp2aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp2bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)		
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp2cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	

	*No feedback study
	reg ifsa_score pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo hyp2aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp2bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp2cNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore
	
*Secondary Hypothesis 2	

*Reminded actions

	preserve
	drop if level<8
	drop if level>10
	drop if tagrecipe==0
	drop if treatment==0
	
	*Feedback study
	reg ifsa_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo shyp2aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp2bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp2cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	reg ifsa_remind pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo shyp2aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp2bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp2cNoFB
	estadd local Controls  "\mbox{Ext}" 
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	restore



*Reminded actions in ManyReminders

	preserve
	drop if level<8
	drop if level>10
	drop if tagrecipe==0
	drop if treatment==0

	*Feedback study	
	reg ifsa_many_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo shyp2iaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp2ibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp2icFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study	
	reg ifsa_many_remind pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo shyp2iaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp2ibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp2icNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore


*Never-reminded actions

	preserve
	drop if level<8
	drop if level>10
	drop if tagrecipe==0
	drop if treatment==0

	*Feedback study	
	reg ifsa_never_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo shyp2iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp2iibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp2iicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_never_remind pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo shyp2iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp2iibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp2iicNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	restore	
		
}
*Panel A: Feedback study	
esttab hyp2aFB hyp2bFB hyp2cFB shyp2aFB shyp2bFB shyp2cFB shyp2iaFB shyp2ibFB shyp2icFB shyp2iiaFB shyp2iibFB shyp2iicFB using TableS23PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
title("Robustness Hypothesis 2 and Secondary Hypothesis 2 (feedback study) \label{tab:RobH2SH2}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Reminded actions in MR" "Never-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in module 3; (4)-(6) Handwashing score in module 3; (7)-(9) Reminded actions in {\em ManyReminders} in module 3,(10)-(12) All IFSAs except those reminded in {\em ManyReminders} in module 3." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab hyp2aNoFB hyp2bNoFB hyp2cNoFB shyp2aNoFB shyp2bNoFB shyp2cNoFB shyp2iaNoFB shyp2ibNoFB shyp2icNoFB shyp2iiaNoFB shyp2iibNoFB shyp2iicNoFB using TableS23PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
title("Robustness Hypothesis 2 and Secondary Hypothesis 2 (no feedback study) \label{tab:RobH2SH2}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Reminded actions in MR" "Never-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in module 3; (4)-(6) Handwashing score in module 3; (7)-(9) Reminded actions in {\em ManyReminders} in module 3,(10)-(12) All IFSAs except those reminded in {\em ManyReminders} in module 3." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	



*** Table S24. Hypothesis 3 (all recipes in module 3)
********************************************************************************
quiet{
eststo clear	
*All actions

	preserve
	drop if level<11
	drop if tagrecipe==0
	drop if treatment==2

	*Feedback study
	reg ifsa_score pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp3aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp3bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp3cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	*has no level 12
	
	restore



*Reminded actions

	preserve
	drop if level<11
	drop if tagrecipe==0
	drop if treatment==2

	*Feedback study	
	reg ifsa_remind pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp3iaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp3ibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp3icFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study	
	*has no level 12	
	restore


*Non-reminded actions

	preserve
	drop if level<11
	drop if tagrecipe==0
	drop if treatment==2

	*Feedback study	
	reg ifsa_not_remind pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp3iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp3iibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp3iicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	*has no level 12
	restore	
}
*Panel A: Feedback study	
esttab hyp3aFB hyp3bFB hyp3cFB hyp3iaFB hyp3ibFB hyp3icFB hyp3iiaFB hyp3iibFB hyp3iicFB using TableS24.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Robustness Hypotheses 3 and 4 (feedback study) \label{tab:RobH34}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in levels 11 and 12; (4)-(6) Handwashing score in levels 11 and 12; (7)-(9) All IFSAs except handwashing in levels 11 and 12." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
*has no level 12


*** Table S25. Hypothesis 4 and Secondary Hypothesis 4 (all recipes in module 3)
********************************************************************************


quiet{
eststo clear


*All actions

	preserve
	drop if level<11
	drop if tagrecipe==0
	drop if treatment==0
	
	*Feedback study
	reg ifsa_score pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo shyp4aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp4bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp4cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	*has no level 12
	
	restore
	
*Reminded actions

	preserve
	drop if level<11
	drop if tagrecipe==0
	drop if treatment==0
	
	*Feedback study
	reg ifsa_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo shyp4iaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp4ibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp4icFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	*has no level 12
	
	restore



*Reminded actions in ManyReminders

	preserve
	drop if level<11
	drop if tagrecipe==0
	drop if treatment==0

	*Feedback study	
	reg ifsa_many_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo shyp4iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp4iibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp4iicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study	
	*has no level 12
	restore


*Never-reminded actions

	preserve
	drop if level<11
	drop if tagrecipe==0
	drop if treatment==0

	*Feedback study	
	reg ifsa_never_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo shyp4iiiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp4iiibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp4iiicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	*has no level 12
		
	restore	
}

*Panel A: Feedback study	
esttab shyp4aFB shyp4bFB shyp4cFB shyp4iaFB shyp4ibFB shyp4icFB shyp4iiaFB shyp4iibFB shyp4iicFB shyp4iiiaFB shyp4iiibFB shyp4iiicFB using TableS25.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
title("Robustness Secondary Hypothesis 5 (feedback study) \label{tab:RobSH5}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Reminded actions in MR" "Never-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) Handwashing score in levels 11 and 12; (4)-(6) Reminded actions in {\em ManyReminders} in levels 11 and 12; (7)-(9) All IFSAs except those reminded in {\em ManyReminders} in levels 11 and 12." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses.")		

*Panel B: No feedback study	
*has no level 12


*** Table S26. Hypothesis 1 (Poisson regression)
********************************************************************************
quiet{
eststo clear
*All actions

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==2
	
	*Feedback study
	poisson ifsa_score pretreatscore treat_R i.r if feedback==1, vce(cluster pid) irr
	eststo hyp1aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	poisson ifsa_score pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) irr
	eststo hyp1bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	poisson ifsa_score pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) irr
	eststo hyp1cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	poisson ifsa_score pretreatscore treat_R i.r if feedback==0, vce(cluster pid) irr
	eststo hyp1aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	poisson ifsa_score pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) irr
	eststo hyp1bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	poisson ifsa_score pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) irr
	eststo hyp1cNoFB
	estadd local Controls  "\mbox{Ext}" 
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	restore



*Reminded actions

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==2

	*Feedback study	
	poisson ifsa_remind pretreatscore treat_R i.r if feedback==1, vce(cluster pid) irr
	eststo hyp1iaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	poisson ifsa_remind pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) irr
	eststo hyp1ibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	poisson ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) irr
	eststo hyp1icFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study	
	poisson ifsa_remind pretreatscore treat_R i.r if feedback==0, vce(cluster pid) irr
	eststo hyp1iaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	poisson ifsa_remind pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) irr
	eststo hyp1ibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	poisson ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) irr
	eststo hyp1icNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore


*Non-reminded actions

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==2

	*Feedback study	
	poisson ifsa_not_remind pretreatscore treat_R i.r if feedback==1, vce(cluster pid) irr
	eststo hyp1iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	poisson ifsa_not_remind pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) irr
	eststo hyp1iibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	poisson ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) irr
	eststo hyp1iicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	poisson ifsa_not_remind pretreatscore treat_R i.r if feedback==0, vce(cluster pid) irr
	eststo hyp1iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	poisson ifsa_not_remind pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) irr
	eststo hyp1iibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	poisson ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) irr
	eststo hyp1iicNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	restore	
}
*Panel A: Feedback study	
esttab hyp1aFB hyp1bFB hyp1cFB hyp1iaFB hyp1ibFB hyp1icFB hyp1iiaFB hyp1iibFB hyp1iicFB using TableS26PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 1 (feedback study) \label{tab:H1}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 8; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "Incidence-rate ratios from poisson regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab hyp1aNoFB hyp1bNoFB hyp1cNoFB hyp1iaNoFB hyp1ibNoFB hyp1icNoFB hyp1iiaNoFB hyp1iibNoFB hyp1iicNoFB using TableS26PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 1 (no feedback study) \label{tab:H1}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 8; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "Incidence-rate ratios from poisson regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	


*** Table S27. Hypothesis 2 and Secondary Hypothesis 2 (Poisson regression)
********************************************************************************
quiet{
eststo clear
*Hypothesis 2: All actions

	preserve
	drop if level<8
	drop if tagrecipe==0
	drop if level>8
	drop if treatment==0
	
	*Feedback study
	poisson ifsa_score pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) irr
	eststo hyp2aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	poisson ifsa_score pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) irr
	eststo hyp2bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)		
	poisson ifsa_score pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) irr
	eststo hyp2cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	

	*No feedback study
	poisson ifsa_score pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) irr
	eststo hyp2aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	poisson ifsa_score pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) irr
	eststo hyp2bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	poisson ifsa_score pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) irr
	eststo hyp2cNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	
	restore
	

	*Reminded actions

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==0
	
	*Feedback study
	poisson ifsa_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) irr
	eststo shyp2aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	poisson ifsa_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) irr
	eststo shyp2bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	poisson ifsa_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) irr
	eststo shyp2cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	poisson ifsa_remind pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) irr
	eststo shyp2aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	poisson ifsa_remind pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) irr
	eststo shyp2bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	poisson ifsa_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) irr
	eststo shyp2cNoFB
	estadd local Controls  "\mbox{Ext}" 
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	restore


*Secondary Hypothesis 2	
*Reminded actions in ManyReminders

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==0

	*Feedback study	
	poisson ifsa_many_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) irr
	eststo shyp2iaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	poisson ifsa_many_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) irr
	eststo shyp2ibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	poisson ifsa_many_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) irr
	eststo shyp2icFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study	
	poisson ifsa_many_remind pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) irr
	eststo shyp2iaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	poisson ifsa_many_remind pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) irr
	eststo shyp2ibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	poisson ifsa_many_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) irr
	eststo shyp2icNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore


*Never-reminded actions

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==0

	*Feedback study	
	poisson ifsa_never_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) irr
	eststo shyp2iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	poisson ifsa_never_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) irr
	eststo shyp2iibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	poisson ifsa_never_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) irr
	eststo shyp2iicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	poisson ifsa_never_remind pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) irr
	eststo shyp2iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	poisson ifsa_never_remind pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) irr
	eststo shyp2iibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	poisson ifsa_never_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) irr
	eststo shyp2iicNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	restore	
		
}
*Panel A: Feedback study	
esttab hyp2aFB hyp2bFB hyp2cFB shyp2aFB shyp2bFB shyp2cFB shyp2iaFB shyp2ibFB shyp2icFB shyp2iiaFB shyp2iibFB shyp2iicFB using TableS27PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 2 and Secondary Hypothesis 2 (feedback study) \label{tab:H2SH2}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Reminded actions in MR" "Never-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 8; (4)-(6) Handwashing score in level 8; (7)-(9) Reminded actions in {\em ManyReminders} in level 8,(10)-(12) All IFSAs except those reminded in {\em ManyReminders} in level 8." "Incidence-rate ratios from poisson regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab hyp2aNoFB hyp2bNoFB hyp2cNoFB shyp2aNoFB shyp2bNoFB shyp2cNoFB shyp2iaNoFB shyp2ibNoFB shyp2icNoFB shyp2iiaNoFB shyp2iibNoFB shyp2iicNoFB using TableS27PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 2 and Secondary Hypothesis 2 (no feedback study) \label{tab:H2SH2}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Reminded actions in MR" "Never-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 8; (4)-(6) Handwashing score in level 8; (7)-(9) Reminded actions in {\em ManyReminders} in level 8,(10)-(12) All IFSAs except those reminded in {\em ManyReminders} in level 8." "Incidence-rate ratios from poisson regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	


*** Table S28. Hypothesis 3 (Poisson regression)
********************************************************************************
quiet{
eststo clear	
*All actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==2

	*Feedback study
	poisson ifsa_score pretreatscore treat_R i.r if feedback==1, vce(cluster pid) irr
	eststo hyp3aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	poisson ifsa_score pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) irr
	eststo hyp3bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	poisson ifsa_score pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) irr
	eststo hyp3cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	poisson ifsa_score pretreatscore treat_R i.r if feedback==0, vce(cluster pid) irr
	eststo hyp3aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	poisson ifsa_score pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) irr
	eststo hyp3bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	poisson ifsa_score pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) irr
	eststo hyp3cNoFB
	estadd local Controls  "\mbox{Ext}" 
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	restore



*Reminded actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==2

	*Feedback study	
	poisson ifsa_remind pretreatscore treat_R i.r if feedback==1, vce(cluster pid) irr
	eststo hyp3iaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	poisson ifsa_remind pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) irr
	eststo hyp3ibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	poisson ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) irr
	eststo hyp3icFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study	
	poisson ifsa_remind pretreatscore treat_R i.r if feedback==0, vce(cluster pid) irr
	eststo hyp3iaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	poisson ifsa_remind pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) irr
	eststo hyp3ibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	poisson ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) irr
	eststo hyp3icNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore


*Non-reminded actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==2

	*Feedback study	
	poisson ifsa_not_remind pretreatscore treat_R i.r if feedback==1, vce(cluster pid) irr
	eststo hyp3iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	poisson ifsa_not_remind pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) irr
	eststo hyp3iibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	poisson ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) irr
	eststo hyp3iicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	poisson ifsa_not_remind pretreatscore treat_R i.r if feedback==0, vce(cluster pid) irr
	eststo hyp3iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	poisson ifsa_not_remind pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) irr
	eststo hyp3iibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	poisson ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) irr
	eststo hyp3iicNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	restore	
}
*Panel A: Feedback study	
esttab hyp3aFB hyp3bFB hyp3cFB hyp3iaFB hyp3ibFB hyp3icFB hyp3iiaFB hyp3iibFB hyp3iicFB using TableS28PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Hypotheses 3 and 4 (feedback study) \label{tab:H34}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 11; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "Incidence-rate ratios from poisson regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab hyp3aNoFB hyp3bNoFB hyp3cNoFB hyp3iaNoFB hyp3ibNoFB hyp3icNoFB hyp3iiaNoFB hyp3iibNoFB hyp3iicNoFB using TableS28PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Hypotheses 3 and 4 (no feedback study) \label{tab:H34}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 11; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "Incidence-rate ratios from poisson regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	

*** Table S29. Hypothesis 4 and Secondary Hypothesis 4 (Poisson regression)
********************************************************************************
quiet{
*Hypothesis 4
	*All actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==0
	
	*Feedback study
	poisson ifsa_score pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) irr
	eststo hyp4aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	poisson ifsa_score pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) irr
	eststo hyp4bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)		
	poisson ifsa_score pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) irr
	eststo hyp4cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	

	*No feedback study
	poisson ifsa_score pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) irr
	eststo hyp4aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	poisson ifsa_score pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) irr
	eststo hyp4bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	poisson ifsa_score pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) irr
	eststo hyp4cNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore
	
*Secondary Hypothesis 4
*Reminded actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==0
	
	*Feedback study
	poisson ifsa_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) irr
	eststo shyp4aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	poisson ifsa_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) irr
	eststo shyp4bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	poisson ifsa_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) irr
	eststo shyp4cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	poisson ifsa_remind pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) irr
	eststo shyp4aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	poisson ifsa_remind pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) irr
	eststo shyp4bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	poisson ifsa_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) irr
	eststo shyp4cNoFB
	estadd local Controls  "\mbox{Ext}" 
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	restore



*Reminded actions in ManyReminders

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==0

	*Feedback study	
	poisson ifsa_many_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) irr
	eststo shyp4iaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	poisson ifsa_many_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) irr
	eststo shyp4ibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	poisson ifsa_many_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) irr
	eststo shyp4icFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study	
	poisson ifsa_many_remind pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) irr
	eststo shyp4iaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	poisson ifsa_many_remind pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) irr
	eststo shyp4ibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	poisson ifsa_many_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) irr
	eststo shyp4icNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore


*Never-reminded actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==0

	*Feedback study	
	poisson ifsa_never_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) irr
	eststo shyp4iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	poisson ifsa_never_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) irr
	eststo shyp4iibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	poisson ifsa_never_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) irr
	eststo shyp4iicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	poisson ifsa_never_remind pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) irr
	eststo shyp4iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	poisson ifsa_never_remind pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) irr
	eststo shyp4iibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	poisson ifsa_never_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) irr
	eststo shyp4iicNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	restore	
}
*Panel A: Feedback study	
esttab hyp4aFB hyp4bFB hyp4cFB shyp4aFB shyp4bFB shyp4cFB shyp4iaFB shyp4ibFB shyp4icFB shyp4iiaFB shyp4iibFB shyp4iicFB  using TableS29PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 4 and Secondary Hypothesis 4 (feedback study) \label{tab:H5SH5}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Reminded actions in MR" "Never-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 11; (4)-(6) Handwashing score in level 11; (7)-(9) Reminded actions in {\em ManyReminders} in level 11,(10)-(12) All IFSAs except those reminded in {\em ManyReminders} in level 11." "Incidence-rate ratios from poisson regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab hyp4aNoFB hyp4bNoFB hyp4cNoFB shyp4aNoFB shyp4bNoFB shyp4cNoFB shyp4iaNoFB shyp4ibNoFB shyp4icNoFB shyp4iiaNoFB shyp4iibNoFB shyp4iicNoFB  using TableS29PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 4 and Secondary Hypothesis 4 (no feedback study) \label{tab:H5SH5}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Reminded actions in MR" "Never-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 11; (4)-(6) Handwashing score in level 11; (7)-(9) Reminded actions in {\em ManyReminders} in level 11,(10)-(12) All IFSAs except those reminded in {\em ManyReminders} in level 11." "Incidence-rate ratios from poisson regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	



*** A. Alternative outcome measure


*** Table S35. Hypothesis 1 (Alternative outcome measure)
********************************************************************************

quiet{
eststo clear
*All actions

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==2
	
	*Feedback study
	reg ifsa_score_rob3 pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp1aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score_rob3 if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score_rob3 pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp1bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score_rob3 if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score_rob3 pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp1cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score_rob3 if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	reg ifsa_score_rob3 pretreatscore treat_R i.r if feedback==0, vce(cluster pid) 
	eststo hyp1aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score_rob3 if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_score_rob3 pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp1bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score_rob3 if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_score_rob3 pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp1cNoFB
	estadd local Controls  "\mbox{Ext}" 
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score_rob3 if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	restore



*Reminded actions

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==2

	*Feedback study	
	reg ifsa_remind pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp1iaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp1ibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp1icFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study	
	reg ifsa_remind pretreatscore treat_R i.r if feedback==0, vce(cluster pid) 
	eststo hyp1iaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp1ibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp1icNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore


*Non-reminded actions

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==2

	*Feedback study	
	reg ifsa_not_remind pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp1iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp1iibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp1iicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_not_remind pretreatscore treat_R i.r if feedback==0, vce(cluster pid) 
	eststo hyp1iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp1iibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp1iicNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	restore	
}
*Panel A: Feedback study	
esttab hyp1aFB hyp1bFB hyp1cFB hyp1iaFB hyp1ibFB hyp1icFB hyp1iiaFB hyp1iibFB hyp1iicFB using TableS35PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("AltMeasureHypothesis 1 (feedback study) \label{tab:H1Surface3}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 8; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab hyp1aNoFB hyp1bNoFB hyp1cNoFB hyp1iaNoFB hyp1ibNoFB hyp1icNoFB hyp1iiaNoFB hyp1iibNoFB hyp1iicNoFB using TableS35PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("AltMeasureHypothesis 1 (no feedback study) \label{tab:H1Surface3}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 8; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	


*** Table S36. Hypothesis 2 and Secondary Hypothesis 2 (Alternative outcome measure)
********************************************************************************

quiet{
eststo clear
*All actions

	preserve
	drop if level<8
	drop if tagrecipe==0
	drop if level>8
	drop if treatment==0
	
	*Feedback study
	reg ifsa_score_rob3 pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo hyp2aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score_rob3 if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_score_rob3 pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp2bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score_rob3 if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)		
	reg ifsa_score_rob3 pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp2cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score_rob3 if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	

	*No feedback study
	reg ifsa_score_rob3 pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo hyp2aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score_rob3 if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_score_rob3 pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp2bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score_rob3 if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_score_rob3 pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp2cNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score_rob3 if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore
}
*Panel A: Feedback study	
esttab hyp2aFB hyp2bFB hyp2cFB using TableS36PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
legend label varlabels(_cons Constant) ///
title("AltMeasureHypothesis 2 (feedback study) \label{tab:H2Surface3}") ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 8." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		


*Panel B: No feedback study	
esttab hyp2aNoFB hyp2bNoFB hyp2cNoFB using TableS36PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
legend label varlabels(_cons Constant) ///
title("AltMeasureHypothesis 2 (no feedback study) \label{tab:H2Surface3}") ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 8." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	


*** Table S37. Hypothesis 3 (Alternative outcome measure)
********************************************************************************
quiet{
eststo clear	
*All actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==2
	
	
	
	*Feedback study
	reg ifsa_score_rob3 pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp3aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score_rob3 if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score_rob3 pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp3bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score_rob3 if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score_rob3 pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp3cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score_rob3 if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	reg ifsa_score_rob3 pretreatscore treat_R i.r if feedback==0, vce(cluster pid) 
	eststo hyp3aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score_rob3 if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_score_rob3 pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp3bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score_rob3 if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_score_rob3 pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp3cNoFB
	estadd local Controls  "\mbox{Ext}" 
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score_rob3 if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	restore



*Reminded actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==2
	
	*Feedback study	
	reg ifsa_remind pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp3iaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp3ibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp3icFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study	
	reg ifsa_remind pretreatscore treat_R i.r if feedback==0, vce(cluster pid) 
	eststo hyp3iaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp3ibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp3icNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore


*Non-reminded actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==2
	
	*Feedback study	
	reg ifsa_not_remind pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp3iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp3iibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp3iicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_not_remind pretreatscore treat_R i.r if feedback==0, vce(cluster pid) 
	eststo hyp3iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp3iibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp3iicNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	restore	
}

*Panel A: Feedback study	
esttab hyp3aFB hyp3bFB hyp3cFB hyp3iaFB hyp3ibFB hyp3icFB hyp3iiaFB hyp3iibFB hyp3iicFB using TableS37PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("AltMeasureHypotheses 3 and 4 (feedback study) \label{tab:H34Surface3}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 11; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab hyp3aNoFB hyp3bNoFB hyp3cNoFB hyp3iaNoFB hyp3ibNoFB hyp3icNoFB hyp3iiaNoFB hyp3iibNoFB hyp3iicNoFB using TableS37PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("AltMeasureHypotheses 3 and 4 (no feedback study) \label{tab:H34Surface3}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 11; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	


*** Table S38. Hypothesis 4 and Secondary Hypothesis 4 (Alternative outcome measure)
********************************************************************************
quiet{
eststo clear	
*All actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==0
	
	*Feedback study
	reg ifsa_score_rob3 pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo hyp4aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score_rob3 if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_score_rob3 pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp4bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score_rob3 if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)		
	reg ifsa_score_rob3 pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp4cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score_rob3 if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	

	*No feedback study
	reg ifsa_score_rob3 pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo hyp4aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score_rob3 if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_score_rob3 pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp4bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score_rob3 if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_score_rob3 pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp4cNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score_rob3 if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore
}
*Panel A: Feedback study	
esttab hyp4aFB hyp4bFB hyp4cFB using TableS38PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
legend label varlabels(_cons Constant) ///
title("AltMeasureHypothesis 5 (feedback study) \label{tab:H5Surface3}") ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 8." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		


*Panel B: No feedback study	
esttab hyp4aNoFB hyp4bNoFB hyp4cNoFB using TableS38PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
legend label varlabels(_cons Constant) ///
title("AltMeasureHypothesis 5 (no feedback study) \label{tab:H5Surface3}") ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 8." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	



*** B. Accessing information about food safety


preserve

drop if tagrecipe==0
drop if feedback==0

ttest InfoSeekPost if treatment!=2 & taguser==1, by(treatment)
ttest InfoSeekPost if treatment!=1 & taguser==1, by(treatment)
ttest InfoSeekPost if treatment!=0 & taguser==1, by(treatment)

ttest VideoClicks if treatment!=2 & taguser==1, by(treatment)
ttest VideoClicks if treatment!=1 & taguser==1, by(treatment)
ttest VideoClicks if treatment!=0 & taguser==1, by(treatment)

ttest VideoDuration if treatment!=2 & taguser==1, by(treatment)
ttest VideoDuration if treatment!=1 & taguser==1, by(treatment)
ttest VideoDuration if treatment!=0 & taguser==1, by(treatment)

restore

preserve

drop if tagrecipe==0
drop if feedback==1

ttest InfoSeekPost if treatment!=2 & taguser==1, by(treatment)
ttest InfoSeekPost if treatment!=1 & taguser==1, by(treatment)
ttest InfoSeekPost if treatment!=0 & taguser==1, by(treatment)

ttest VideoClicks if treatment!=2 & taguser==1, by(treatment)
ttest VideoClicks if treatment!=1 & taguser==1, by(treatment)
ttest VideoClicks if treatment!=0 & taguser==1, by(treatment)

ttest VideoDuration if treatment!=2 & taguser==1, by(treatment)
ttest VideoDuration if treatment!=1 & taguser==1, by(treatment)
ttest VideoDuration if treatment!=0 & taguser==1, by(treatment)

restore


*** C. Why and how do reminders work?


*** The effect of feedback.

*Generate variables for average scores per recipe
quiet{
	
bysort pid: egen temp=total(ifsa_score) if level==8 & tagrecipe==1
bysort pid: egen tempN=count(ifsa_score) if level==8 & tagrecipe==1
replace temp=temp/tempN	
bysort pid: egen Level8Score=max(temp)
drop temp*
bysort pid: egen temp=total(ifsa_score) if level==9 & tagrecipe==1
bysort pid: egen tempN=count(ifsa_score) if level==9 & tagrecipe==1
replace temp=temp/tempN	
bysort pid: egen Level9Score=max(temp)
drop temp*
bysort pid: egen temp=total(ifsa_score) if level==10  & tagrecipe==1
bysort pid: egen tempN=count(ifsa_score) if level==10 & tagrecipe==1
replace temp=temp/tempN	
bysort pid: egen Level10Score=max(temp)
drop temp*

gen DiffScoreLevel9_8=Level9Score-Level8Score
gen DiffScoreLevel10_9=Level10Score-Level9Score
gen DiffScoreLevel10_8=Level10Score-Level8Score

bysort pid: egen temp=total(ifsa_remind) if level==8 & tagrecipe==1
bysort pid: egen tempN=count(ifsa_remind) if level==8 & tagrecipe==1
replace temp=temp/tempN	
bysort pid: egen Level8Remind=max(temp)
drop temp*
bysort pid: egen temp=total(ifsa_remind) if level==9 & tagrecipe==1
bysort pid: egen tempN=count(ifsa_remind) if level==9 & tagrecipe==1
replace temp=temp/tempN	
bysort pid: egen Level9Remind=max(temp)
drop temp*
bysort pid: egen temp=total(ifsa_remind) if level==10 & tagrecipe==1 
bysort pid: egen tempN=count(ifsa_remind) if level==10 & tagrecipe==1
replace temp=temp/tempN	
bysort pid: egen Level10Remind=max(temp)
drop temp*

gen DiffRemindLevel9_8=Level9Remind-Level8Remind
gen DiffRemindLevel10_9=Level10Remind-Level9Remind
gen DiffRemindLevel10_8=Level10Remind-Level8Remind

bysort pid: egen temp=total(ifsa_not_remind) if level==8 & tagrecipe==1
bysort pid: egen tempN=count(ifsa_not_remind) if level==8 & tagrecipe==1
replace temp=temp/tempN	
bysort pid: egen Level8NotRemind=max(temp)
drop temp*
bysort pid: egen temp=total(ifsa_not_remind) if level==9 & tagrecipe==1 
bysort pid: egen tempN=count(ifsa_not_remind) if level==9 & tagrecipe==1
replace temp=temp/tempN	
bysort pid: egen Level9NotRemind=max(temp)
drop temp*
bysort pid: egen temp=total(ifsa_not_remind) if level==10 & tagrecipe==1 
bysort pid: egen tempN=count(ifsa_not_remind) if level==10 & tagrecipe==1
replace temp=temp/tempN	
bysort pid: egen Level10NotRemind=max(temp)
drop temp*

gen DiffNotRemindLevel9_8=Level9NotRemind-Level8NotRemind
gen DiffNotRemindLevel10_9=Level10NotRemind-Level9NotRemind
gen DiffNotRemindLevel10_8=Level10NotRemind-Level8NotRemind

bysort pid: egen temp=total(ifsa_many_remind) if level==8 & tagrecipe==1
bysort pid: egen tempN=count(ifsa_many_remind) if level==8 & tagrecipe==1
replace temp=temp/tempN	
bysort pid: egen Level8ManyRemind=max(temp)
drop temp*
bysort pid: egen temp=total(ifsa_many_remind) if level==9 & tagrecipe==1
bysort pid: egen tempN=count(ifsa_many_remind) if level==9 & tagrecipe==1
replace temp=temp/tempN	
bysort pid: egen Level9ManyRemind=max(temp)
drop temp*
bysort pid: egen temp=total(ifsa_many_remind) if level==10 & tagrecipe==1
bysort pid: egen tempN=count(ifsa_many_remind) if level==10 & tagrecipe==1
replace temp=temp/tempN	
bysort pid: egen Level10ManyRemind=max(temp)
drop temp*

gen DiffManyRemindLevel9_8=Level9ManyRemind-Level8ManyRemind
gen DiffManyRemindLevel10_9=Level10ManyRemind-Level9ManyRemind
gen DiffManyRemindLevel10_8=Level10ManyRemind-Level8ManyRemind

bysort pid: egen temp=total(ifsa_never_remind) if level==8 & tagrecipe==1
bysort pid: egen tempN=count(ifsa_never_remind) if level==8 & tagrecipe==1
replace temp=temp/tempN	
bysort pid: egen Level8NeverRemind=max(temp)
drop temp*
bysort pid: egen temp=total(ifsa_never_remind) if level==9 & tagrecipe==1
bysort pid: egen tempN=count(ifsa_never_remind) if level==9 & tagrecipe==1
replace temp=temp/tempN	
bysort pid: egen Level9NeverRemind=max(temp)
drop temp*
bysort pid: egen temp=total(ifsa_never_remind) if level==10 & tagrecipe==1
bysort pid: egen tempN=count(ifsa_never_remind) if level==10 & tagrecipe==1
replace temp=temp/tempN	
bysort pid: egen Level10NeverRemind=max(temp)
drop temp*

gen DiffNeverRemindLevel9_8=Level9NeverRemind-Level8NeverRemind
gen DiffNeverRemindLevel10_9=Level10NeverRemind-Level9NeverRemind
gen DiffNeverRemindLevel10_8=Level10NeverRemind-Level8NeverRemind
}

*Generate interaction terms and run the regressions
quiet{
gen interactionFB=feedback*treatment 
gen interactionFBMRC=feedback*treat_MR 
gen interactionFBMRR=feedback*treat_MRR

label var feedback "Feedback"
label var interactionFB "Feedback*Reminder"
label var interactionFBMRC "Feedback*ManyReminders"
label var interactionFBMRR "Feedback*ManyReminders"

*Note: Regressions are without controls and pretreatment score.  Their effect cancels out when taking the difference because we are using linear models here.

eststo clear
*Reminder vs Control
reg DiffScoreLevel10_8 treat_R feedback interactionFB if  treatment!=2 & taguser==1 , robust
eststo RCScoreLevel10_8
estadd local Individuals=`e(N)' 
summarize DiffScoreLevel10_8 if treatment==0    & taguser==1 
estadd scalar MeanDepVar =r(mean)
estadd scalar SDDepVar =r(sd)


reg DiffRemindLevel10_8 treat_R feedback interactionFB if  treatment!=2 & taguser==1 , robust
eststo RCRemindLevel10_8
estadd local Individuals=`e(N)' 
summarize DiffRemindLevel10_8 if treatment==0    & taguser==1 
estadd scalar MeanDepVar =r(mean)
estadd scalar SDDepVar =r(sd)

reg DiffNotRemindLevel10_8 treat_R feedback interactionFB if  treatment!=2 & taguser==1 , robust
eststo RCNotRemindLevel10_8
estadd local Individuals=`e(N)' 
summarize DiffNotRemindLevel10_8 if treatment==0    & taguser==1 
estadd scalar MeanDepVar =r(mean)
estadd scalar SDDepVar =r(sd)

*ManyReminders vs Control
reg DiffScoreLevel10_8 treat_MR feedback interactionFBMRC if  treatment!=1 & taguser==1 , robust
eststo MRCScoreLevel10_8
estadd local Individuals=`e(N)' 
summarize DiffScoreLevel10_8 if treatment==0    & taguser==1 
estadd scalar MeanDepVar =r(mean)
estadd scalar SDDepVar =r(sd)

reg DiffRemindLevel10_8 treat_MR feedback interactionFBMRC if  treatment!=1 & taguser==1 , robust
eststo MRCRemindLevel10_8
estadd local Individuals=`e(N)' 
summarize DiffRemindLevel10_8 if treatment==0    & taguser==1 
estadd scalar MeanDepVar =r(mean)
estadd scalar SDDepVar =r(sd)

reg DiffManyRemindLevel10_8 treat_MR feedback interactionFBMRC if  treatment!=1 & taguser==1 , robust
eststo MRCManyRemindLevel10_8
estadd local Individuals=`e(N)' 
summarize DiffManyRemindLevel10_8 if treatment==0    & taguser==1 
estadd scalar MeanDepVar =r(mean)
estadd scalar SDDepVar =r(sd)

reg DiffNeverRemindLevel10_8 treat_MR feedback interactionFBMRC if  treatment!=1 & taguser==1 , robust
eststo MRCNeverRemindLevel10_8
estadd local Individuals=`e(N)' 
summarize DiffNeverRemindLevel10_8 if treatment==0    & taguser==1 
estadd scalar MeanDepVar =r(mean)
estadd scalar SDDepVar =r(sd)


*ManyReminders vs Reminder
reg DiffScoreLevel10_8 treat_MRR feedback interactionFBMRR if  treatment!=0 & taguser==1 , robust
eststo MRRScoreLevel10_8
estadd local Individuals=`e(N)' 
summarize DiffScoreLevel10_8 if treatment==1    & taguser==1 
estadd scalar MeanDepVar =r(mean)
estadd scalar SDDepVar =r(sd)

reg DiffRemindLevel10_8 treat_MRR feedback interactionFBMRR if  treatment!=0 & taguser==1 , robust
eststo MRRRemindLevel10_8
estadd local Individuals=`e(N)' 
summarize DiffRemindLevel10_8 if treatment==1    & taguser==1 
estadd scalar MeanDepVar =r(mean)
estadd scalar SDDepVar =r(sd)

reg DiffNotRemindLevel10_8 treat_MRR feedback interactionFBMRR if  treatment!=0 & taguser==1 , robust
eststo MRRNotRemindLevel10_8
estadd local Individuals=`e(N)' 
summarize DiffNotRemindLevel10_8 if treatment==1    & taguser==1 
estadd scalar MeanDepVar =r(mean)
estadd scalar SDDepVar =r(sd)

reg DiffManyRemindLevel10_8 treat_MRR feedback interactionFBMRR if  treatment!=0 & taguser==1 , robust
eststo MRRManyRemindLevel10_8
estadd local Individuals=`e(N)' 
summarize DiffManyRemindLevel10_8 if treatment==1    & taguser==1 
estadd scalar MeanDepVar =r(mean)
estadd scalar SDDepVar =r(sd)

reg DiffNeverRemindLevel10_8 treat_MRR feedback interactionFBMRR if  treatment!=0 & taguser==1 , robust
eststo MRRNeverRemindLevel10_8
estadd local Individuals=`e(N)' 
summarize DiffNeverRemindLevel10_8 if treatment==1    & taguser==1 
estadd scalar MeanDepVar =r(mean)
estadd scalar SDDepVar =r(sd)

}


*** Table S39. Impact of feedback and reminders (Reminder vs Control, pooled data)
********************************************************************************

esttab RCScoreLevel10_8 RCRemindLevel10_8 RCNotRemindLevel10_8 using TableS39.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R feedback interactionFB _cons) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N Individuals r2_a  MeanDepVar SDDepVar, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" "Mean (Control)" "Std.dev.")) sfmt(2) ///
legend label varlabels(_cons Constant) ///
title("Impact of feedback and reminders (Reminder vs Control, pooled data) \label{tab:feedbackreminder1}") ///
addnotes("Dependent variable: (1) Difference in average overall IFSA score between levels 10 and 8;"  ///
"(2) Difference in average score for reminded actions between levels 10 and 8;"  ///
"(3) Difference in average score for non-reminded actions between levels 10 and 8"  ///
"OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}."  ///
 "Robust standard errors in parentheses." )		


*** Table S40. Impact of feedback and reminders (ManyReminders vs Control, pooled data)
********************************************************************************
esttab MRCScoreLevel10_8  MRCManyRemindLevel10_8   MRCNeverRemindLevel10_8  using TableS40.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MR feedback interactionFBMRC _cons) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N Individuals r2_a  MeanDepVar SDDepVar, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" "Mean (Control)" "Std.dev.")) sfmt(2) ///
legend label varlabels(_cons Constant) ///
title("Impact of feedback and reminders (ManyReminders vs Control, pooled data) \label{tab:feedbackreminder2}") ///
addnotes("Dependent variable: (1) Difference in average overall IFSA score between levels 10 and 8;"  ///
"(2) Difference in average score for reminded actions between levels 10 and 8;"  ///
"(3) Difference in average score for reminded actions in {\em ManyReminders} between levels 10 and 8;"  ///
"(4) Difference in average score for never-reminded actions between levels 10 and 8."  ///
"OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Control) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Control}."  ///
 "Robust standard errors in parentheses." )	

 
*** Table S41. Impact of feedback and reminders (ManyReminders vs Reminder, pooled data)
********************************************************************************
esttab MRRScoreLevel10_8  MRRRemindLevel10_8   MRRNotRemindLevel10_8 MRRManyRemindLevel10_8   MRRNeverRemindLevel10_8  using TableS41.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR feedback interactionFBMRR _cons) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N Individuals r2_a  MeanDepVar SDDepVar, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
legend label varlabels(_cons Constant) ///
title("Impact of feedback and reminders (ManyReminders vs Reminder, pooled data) \label{tab:feedbackreminder3}") ///
addnotes("Dependent variable: (1) Difference in average overall IFSA score between levels 10 and 8;"  ///
"(2) Difference in average score for reminded actions between levels 10 and 8;"  ///
"(3) Difference in average score for reminded actions in {\em ManyReminders} between levels 10 and 8;"  ///
"(4) Difference in average score for never-reminded actions between levels 10 and 8."  ///
"OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}."  ///
"Robust standard errors in parentheses." )		


*** B. Scaling.

*** Table S14. Secondary Hypothesis 1: ManyReminders vs Control
********************************************************************************
quiet{
eststo clear
*All actions

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==1
	
	*Feedback study
	reg ifsa_score pretreatscore treat_MR i.r if feedback==1, vce(cluster pid) 
	eststo shyp1aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score pretreatscore treat_MR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp1bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score pretreatscore treat_MR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp1cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	reg ifsa_score pretreatscore treat_MR i.r if feedback==0, vce(cluster pid) 
	eststo shyp1aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_score pretreatscore treat_MR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp1bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_score pretreatscore treat_MR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp1cNoFB
	estadd local Controls  "\mbox{Ext}" 
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	restore



*Reminded actions in ManyReminders

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==1

	*Feedback study	
	reg ifsa_many_remind pretreatscore treat_MR i.r if feedback==1, vce(cluster pid) 
	eststo shyp1iaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp1ibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp1icFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study	
	reg ifsa_many_remind pretreatscore treat_MR i.r if feedback==0, vce(cluster pid) 
	eststo shyp1iaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp1ibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp1icNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore


*Never-reminded actions

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==1

	*Feedback study	
	reg ifsa_never_remind pretreatscore treat_MR i.r if feedback==1, vce(cluster pid) 
	eststo shyp1iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==0 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp1iibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp1iicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_never_remind pretreatscore treat_MR i.r if feedback==0, vce(cluster pid) 
	eststo shyp1iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp1iibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_never_remind pretreatscore treat_MR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp1iicNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	restore	
}
*Panel A: Feedback study	
esttab shyp1aFB shyp1bFB shyp1cFB shyp1iaFB shyp1ibFB shyp1icFB shyp1iiaFB shyp1iibFB shyp1iicFB using TableS14PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Secondary Hypothesis 1 (feedback study) \label{tab:SH1}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 8; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab shyp1aNoFB shyp1bNoFB shyp1cNoFB shyp1iaNoFB shyp1ibNoFB shyp1icNoFB shyp1iiaNoFB shyp1iibNoFB shyp1iicNoFB using TableS14PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Secondary Hypothesis 1 (no feedback study) \label{tab:SH1}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 8; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	

		

*** Table S15. Secondary Hypothesis 3: ManyReminders vs Control
********************************************************************************
quiet{
eststo clear

*All actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==1
	
	*Feedback study
	reg ifsa_score pretreatscore treat_MR i.r if feedback==1, vce(cluster pid) 
	eststo shyp34aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score pretreatscore treat_MR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp34bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score pretreatscore treat_MR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp34cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	reg ifsa_score pretreatscore treat_MR i.r if feedback==0, vce(cluster pid) 
	eststo shyp34aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_score pretreatscore treat_MR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp34bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_score pretreatscore treat_MR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp34cNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	restore


*Reminded actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==1
	
	*Feedback study
	reg ifsa_remind pretreatscore treat_MR i.r if feedback==1, vce(cluster pid) 
	eststo shyp34iaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_MR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp34ibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_MR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp34icFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	reg ifsa_remind pretreatscore treat_MR i.r if feedback==0, vce(cluster pid) 
	eststo shyp34iaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_MR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp34ibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_MR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp34icNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	restore



*Reminded actions in ManyReminders

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==1
	
	*Feedback study	
	reg ifsa_many_remind pretreatscore treat_MR i.r if feedback==1, vce(cluster pid) 
	eststo shyp34iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp34iibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp34iicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study	
	reg ifsa_many_remind pretreatscore treat_MR i.r if feedback==0, vce(cluster pid) 
	eststo shyp34iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp34iibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp34iicNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	
	restore


*Never-reminded actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==1

	*Feedback study	
	reg ifsa_never_remind pretreatscore treat_MR i.r if feedback==1, vce(cluster pid) 
	eststo shyp34iiiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==0 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp34iiibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp34iiicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_never_remind pretreatscore treat_MR i.r if feedback==0, vce(cluster pid) 
	eststo shyp34iiiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==0 & feedback==0 
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp34iiibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp34iiicNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	
	restore	
}

*Panel A: Feedback study	
esttab shyp34aFB shyp34bFB shyp34cFB shyp34iaFB shyp34ibFB shyp34icFB shyp34iiaFB shyp34iibFB shyp34iicFB shyp34iiiaFB shyp34iiibFB shyp34iiicFB using TableS15PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Secondary Hypotheses 3 and 4 (feedback study) \label{tab:RobSH34}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Reminded actions in MR" "Never-reminded actions", pattern(1 0 0 1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) All actions  in levels 11 and 12; (4)-(6) Handwashing score in levels 11 and 12; (7)-(9) Reminded actions in {\em ManyReminders} in levels 11 and 12; (10)-(12) All IFSAs except those reminded in {\em ManyReminders} in levels 11 and 12." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Control) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses.")		

*Panel B: No feedback study	
esttab shyp34aNoFB shyp34bNoFB shyp34cNoFB shyp34iaNoFB shyp34ibNoFB shyp34icNoFB shyp34iiaNoFB shyp34iibNoFB shyp34iicNoFB shyp34iiiaNoFB shyp34iiibNoFB shyp34iiicNoFB using TableS15PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Secondary Hypotheses 3 and 4 (no feedback study) \label{tab:RobSH34}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Reminded actions in MR" "Never-reminded actions", pattern(1 0 0 1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) All actions  in levels 11 and 12; (4)-(6) Handwashing score in levels 11 and 12; (7)-(9) Reminded actions in {\em ManyReminders} in levels 11 and 12; (10)-(12) All IFSAs except those reminded in {\em ManyReminders} in levels 11 and 12." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Control) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses.")		


*** Table S42. Decreasing returns to more reminders/reminding more categories: Hand-washing
********************************************************************************
quiet{
eststo clear
*ManyReminders vs Reminder
	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==0
	
	*Feedback study
	reg handsbeginning pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo decreturnsaiFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize handsbeginning if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg handsbeginning pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo decreturnsbiFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize handsbeginning if treatment==1 & PriorBehaviors!=. & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg handsbeginning pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo decreturnsciFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize handsbeginning if treatment==1 & PriorBehaviors!=. & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	
	reg handsafterveg pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo decreturnsaiiFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize handsafterveg if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg handsafterveg pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo decreturnsbiiFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize handsafterveg if treatment==1 & PriorBehaviors!=. & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg handsafterveg pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo decreturnsciiFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize handsafterveg if treatment==1 & PriorBehaviors!=. & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	
	
	reg handsaftermeat pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo decreturnsaiiiFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize handsaftermeat if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg handsaftermeat pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo decreturnsbiiiFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize handsaftermeat if treatment==1 & PriorBehaviors!=. & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg handsaftermeat pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo decreturnsciiiFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize handsaftermeat if treatment==1 & PriorBehaviors!=. & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	
	*No feedback study
	reg handsbeginning pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo decreturnsaiNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize handsbeginning if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg handsbeginning pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo decreturnsbiNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize handsbeginning if treatment==1 & PriorBehaviors!=. & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg handsbeginning pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo decreturnsciNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize handsbeginning if treatment==1 & PriorBehaviors!=. & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	reg handsafterveg pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo decreturnsaiiNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize handsafterveg if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg handsafterveg pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo decreturnsbiiNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize handsafterveg if treatment==1 & PriorBehaviors!=. & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg handsafterveg pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo decreturnsciiNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize handsafterveg if treatment==1 & PriorBehaviors!=. & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	
	reg handsaftermeat pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo decreturnsaiiiNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize handsaftermeat if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg handsaftermeat pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo decreturnsbiiiNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize handsaftermeat if treatment==1 & PriorBehaviors!=. & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg handsaftermeat pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo decreturnsciiiNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize handsaftermeat if treatment==1 & PriorBehaviors!=. & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	restore


}
*Panel A: Feedback study	
esttab  decreturnsaiFB decreturnsbiFB decreturnsciFB ///
decreturnsaiiFB decreturnsbiiFB decreturnsciiFB   ///
decreturnsaiiiFB decreturnsbiiiFB decreturnsciiiFB ///
using TableS42PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" "Controls" "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
title("Decreasing returns to more reminders/reminding more categories: Level 8  \label{tab:DecReturns1}") ///
mgroups("Recipe start" "After vegetable" "After meat", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: Handwashing score in level 8. Reminder is about single action in ManyReminders (1) at recipe start, (2) after handling vegetables; Reminder is about three categories in ManyReminders (3) after handling meat" "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		


*Panel B: No feedback study	
esttab  decreturnsaiNoFB decreturnsbiNoFB decreturnsciNoFB ///
decreturnsaiiNoFB decreturnsbiiNoFB decreturnsciiNoFB   ///
decreturnsaiiiNoFB decreturnsbiiiNoFB decreturnsciiiNoFB ///
using TableS42PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" "Controls" "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
title("Decreasing returns to more reminders/reminding more categories: Level 8  \label{tab:DecReturns1}") ///
mgroups("Recipe start" "After vegetable" "After meat", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: Handwashing score in level 8. Reminder is about single action in ManyReminders (1) at recipe start, (2) after handling vegetables; Reminder is about three categories in ManyReminders (3) after handling meat" "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		



*** In text: "Moreover, the difference in treatment effects between ManyReminders vs Reminder for hand-washing after handling meat compared to hand-washing at the start of a recipe or hand-washing after handling vegetables, respectively, is robustly significant according to a Wald chi-square test (all comparisons p<0.0001)."

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==0
	
	*Feedback study
	reg handsbeginning pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1
	eststo reghandsbeginning
	reg handsafterveg pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1
	eststo reghandsafterveg
	reg handsaftermeat pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1
	eststo reghandsaftermeat
	
	
	suest reghandsbeginning reghandsaftermeat, vce(cluster pid)
    test [reghandsbeginning_mean]treat_MRR=[reghandsaftermeat_mean]treat_MRR
	
	suest reghandsafterveg reghandsaftermeat, vce(cluster pid)
    test [reghandsafterveg_mean]treat_MRR=[reghandsaftermeat_mean]treat_MRR
		
	*No feedback study
	reg handsbeginning pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0
	eststo reghandsbeginning
	reg handsafterveg pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0
	eststo reghandsafterveg
	reg handsaftermeat pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0
	eststo reghandsaftermeat
		
	
	suest reghandsbeginning reghandsaftermeat, vce(cluster pid)
    test [reghandsbeginning_mean]treat_MRR=[reghandsaftermeat_mean]treat_MRR
	
	suest reghandsafterveg reghandsaftermeat, vce(cluster pid)
    test [reghandsafterveg_mean]treat_MRR=[reghandsaftermeat_mean]treat_MRR

	restore

	
*** Table S43. 	Decreasing returns to more reminded categories: Cleaning kitchen surfaces
********************************************************************************
quiet{
eststo clear
*ManyReminders vs Reminder
	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==0
	
	*Feedback study
	reg worktopafterveg pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo decreturnsaiFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize worktopafterveg if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg worktopafterveg pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo decreturnsbiFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize worktopafterveg if treatment==1 & PriorBehaviors!=. & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg worktopafterveg pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo decreturnsciFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize worktopafterveg if treatment==1 & PriorBehaviors!=. & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	
	reg worktopaftermeat pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo decreturnsaiiFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize worktopaftermeat if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg worktopaftermeat pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo decreturnsbiiFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize worktopaftermeat if treatment==1 & PriorBehaviors!=. & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg worktopaftermeat pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo decreturnsciiFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize worktopaftermeat if treatment==1 & PriorBehaviors!=. & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	
	*No feedback study
	reg worktopafterveg pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo decreturnsaiNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize worktopafterveg if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg worktopafterveg pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo decreturnsbiNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize worktopafterveg if treatment==1 & PriorBehaviors!=. & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg worktopafterveg pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo decreturnsciNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize worktopafterveg if treatment==1 & PriorBehaviors!=. & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	reg worktopaftermeat pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo decreturnsaiiNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize worktopaftermeat if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg worktopaftermeat pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo decreturnsbiiNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize worktopaftermeat if treatment==1 & PriorBehaviors!=. & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg worktopaftermeat pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo decreturnsciiNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize worktopaftermeat if treatment==1 & PriorBehaviors!=. & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	
	restore


}
*Panel A: Feedback study	
esttab  decreturnsaiFB decreturnsbiFB decreturnsciFB ///
decreturnsaiiFB decreturnsbiiFB decreturnsciiFB   ///
using TableS43PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" "Controls" "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
title("Decreasing returns to reminding more categories: Level 8  \label{tab:DecReturns2}") ///
mgroups("After vegetable" "After meat", pattern(1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: Surface cleaning score in level 8. Reminder is about single action in ManyReminders (1) after handling vegetables; Reminder is about three categories in ManyReminders (2) after handling meat" "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	


*Panel B: No feedback study	
esttab  decreturnsaiNoFB decreturnsbiNoFB decreturnsciNoFB ///
decreturnsaiiNoFB decreturnsbiiNoFB decreturnsciiNoFB   ///
using TableS43PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" "Controls" "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
title("Decreasing returns to reminding more categories: Level 8  \label{tab:DecReturns2}") ///
mgroups("After vegetable" "After meat", pattern(1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: Surface cleaning score in level 8. Reminder is about single action in ManyReminders (1) after handling vegetables; Reminder is about three categories in ManyReminders (2) after handling meat" "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	


*** In text: "ManyReminders has  a larger treatment effect in the former situation than in the latter, according to a Wald chi-square test (all comparisons p<0.0001)." 

*** In text: "A caveat is that the outcome measure in the baseline treatment Reminder is lower after handling vegetables than after meat (feedback study  0.17 vs 0.58; no feedback study 0.21 vs 0.64)."

*** In text: "But the difference in treatment effects is still significant when accounting for the difference in the baselines (all comparisons p<0.0001)."	

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==0
	
	*Feedback study
	reg worktopafterveg pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1
	eststo regworktopafterveg
	reg worktopaftermeat pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1
	eststo regworktopaftermeat
	
	
	suest regworktopafterveg regworktopaftermeat, vce(cluster pid)
    test [regworktopafterveg_mean]treat_MRR=[regworktopaftermeat_mean]treat_MRR

	*Cleaning after meat has higher mean without reminder 
	*The difference in treatment effects may partially driven by this  
	*-> Compensate for higher baseline when cleaning after meat
	summarize worktopafterveg if treatment==1 & PriorBehaviors!=. & feedback==1
	test [regworktopafterveg_mean]treat_MRR=[regworktopaftermeat_mean]treat_MRR+`r(mean)'
	
		
	*No feedback study
	reg worktopafterveg pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0
	eststo regworktopafterveg
	reg worktopaftermeat pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0
	eststo regworktopaftermeat
	
	
	suest regworktopafterveg regworktopaftermeat, vce(cluster pid)
    test [regworktopafterveg_mean]treat_MRR=[regworktopaftermeat_mean]treat_MRR

	*Cleaning after meat has higher mean without reminder 
	*The difference in treatment effects may partially driven by this  
	*-> Compensate for higher baseline when cleaning after meat
	summarize worktopafterveg if treatment==1 & PriorBehaviors!=. & feedback==0
	test [regworktopafterveg_mean]treat_MRR=[regworktopaftermeat_mean]treat_MRR+`r(mean)'
	
	restore

	
preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==0
	*Cleaning after meat has higher mean without reminder 
	
	*Feedback study
	summarize worktopafterveg if treatment==1 & PriorBehaviors!=. & feedback==1
	summarize worktopaftermeat if treatment==1 & PriorBehaviors!=. & feedback==1
	
		
	*No feedback study
	summarize worktopafterveg if treatment==1 & PriorBehaviors!=. & feedback==0
	summarize worktopaftermeat if treatment==1 & PriorBehaviors!=. & feedback==0
	
restore



********************************************************************************
***   	SI 7. Intertemporal spillover effects on non-reminded actions.	     ***
********************************************************************************

preserve 
*Prepare data set for analysis of intertemporal spillover effects on non-reminded actions
quiet{

global singleIFSAs "handsbeginning handsafterveg handsaftermeat rinseveg knifeafterveg boardafterveg  knifeaftermeat boardaftermeat  worktopafterveg worktopaftermeat checktemperature bread notrinsemeat"
global remindedIFSAs "handsbeginning handsafterveg handsaftermeat"
global MremindedIFSAs "handsbeginning handsafterveg handsaftermeat worktopafterveg worktopaftermeat checktemperature"
global notremindedIFSAs "rinseveg knifeafterveg boardafterveg  knifeaftermeat boardaftermeat  worktopafterveg worktopaftermeat checktemperature bread notrinsemeat"
global neverremindedIFSAs "rinseveg knifeafterveg boardafterveg  knifeaftermeat boardaftermeat  checktemperature bread notrinsemeat"

foreach y of global singleIFSAs {

forvalues j=1(1)23{

	*Was an IFSA performed in a recipe? 
	bysort pid: egen temp1=max(`y') if r==`j'

	gen temp2=-1
	replace temp2 =temp1 if temp1!=.
	bysort pid: egen `y'r`j'=max(temp2) 
	*Capture any instances, where data from a recipe is not available
	replace `y'r`j'=. if `y'r`j'==-1
	*Was an IFSA ever performed in a recipe?
	gen any`y'r`j'=(`y'r`j'>0) 
	capture drop temp*
}
bysort pid: egen temp1=total(`y') if level<4
bysort pid: egen temp2=count(`y') if level<4
gen temp3=-1
gen temp4=-1
replace temp3 = temp1 if temp1!=.
replace temp4 = temp2 if temp2!=.
*Was an IFSA ever performed in module 1 (levels 1-3; recipe=level)
bysort pid: egen `y'1_3=max(temp3) 
*How many cases of the IFSA are there in module 1? (Capture any instances, where data from a recipe is not available.)
bysort pid: egen c`y'1_3=max(temp4) 
gen any`y'1_3=(`y'1_3>0) 
capture drop temp*

bysort pid: egen temp1=total(`y') if level>3 & level<8
bysort pid: egen temp2=count(`y') if level>3 & level<8
gen temp3=-1
gen temp4=-1
replace temp3 = temp1 if temp1!=.
replace temp4 = temp2 if temp2!=.
*Was an IFSA ever performed in module 2 (levels 4-7; recipe=level)
bysort pid: egen `y'4_7=max(temp3) 
*How many cases of the IFSA are there in module 2? (Capture any instances, where data from a recipe is not available.)
bysort pid: egen c`y'4_7=max(temp4) 
gen any`y'4_7=(`y'4_7>0) 
capture drop temp*

bysort pid: egen temp1=total(`y') if level==8
bysort pid: egen temp2=count(`y') if level==8
gen temp3=-1
gen temp4=-1
replace temp3 = temp1 if temp1!=.
replace temp4 = temp2 if temp2!=.
*Was an IFSA ever performed in the first four recipes of module 3 (level 8; it consists of recipes 8 to 11)
bysort pid: egen `y'8=max(temp3) 
*How many cases of the IFSA are there in the first four recipes of module 3? (Capture any instances, where data from a recipe is not available.)
bysort pid: egen c`y'8=max(temp4) 
gen any`y'8=(`y'8>0) 
capture drop temp*


bysort pid: egen temp1=total(`y') if level==11
bysort pid: egen temp2=count(`y') if level==11
gen temp3=-1
gen temp4=-1
replace temp3 = temp1 if temp1!=.
replace temp4 = temp2 if temp2!=.
*Was an IFSA ever performed in the first four recipes of module 4 (level 11; it consists of recipes 20 to 23) 
bysort pid: egen `y'11=max(temp3) 
*How many cases of the IFSA are there in the first four recipes of module 4? (Capture any instances, where data from a recipe is not available.)
bysort pid: egen c`y'11=max(temp4) 
gen any`y'11=(`y'11>0) 
capture drop temp*

}


*stack variables for categories not performed in levels 8 and 11, respectively
bysort pid : gen nobs=_n
gen nrem8_11=0 if nobs<=13

forvalues i=8(3)11{
gen nrem`i'=. if nobs<=13
local tempcount=1
	foreach y of global singleIFSAs {
	replace nrem`i'=1-any`y'`i' if nobs==`tempcount'
	local tempcount= `tempcount'+1

	if `i'==8{
		replace nrem8_11=1 if any`y'8==0 & any`y'11==0 & nobs==`tempcount'
	}
	
	}

}

*Number of IFSAs performed in a category over all four recipes of module 4
gen nIFSA11=0 if nobs<=13
local tempcount=1
	foreach y of global singleIFSAs {
	replace nIFSA11=`y'11 if nobs==`tempcount'
	local tempcount= `tempcount'+1

	}
*category labels
*Reminded vs non-reminded actions in Reminder (handsbeginning handsafterveg handsaftermeat)
gen actioncategoryR=(nobs<=3) if nobs<=13  
*Reminded vs never reminded actions in ManyReminders (handsbeginning handsafterveg handsaftermeat worktopafterveg worktopaftermeat checktemperature)
gen actioncategoryMR=0 if nobs<=13 
replace actioncategoryMR=1 if nobs<=3 | (nobs>=9 & nobs<=11)

cd "$temp"
save intertempdata, replace
}
restore

*** A. Forgetting a non-reminded action in level 8 makes it likely to forget it in level 11.

*** Table S44. Spillover effects on non-reminded actions due to not performing an action: Reminder vs Control 
********************************************************************************
preserve
cd "$temp"
use intertempdata, clear
capture drop nIFSA11_rescaled
* Number of IFSAs over four recipes in level 11: Transform into average predicted total score for the ten non-reminded actions per recipe 
gen nIFSA11_rescaled=nIFSA11*10/4
cd "$output"

eststo clear
quiet{
*Feedback study: 

*1) Estimate the treatment effect on the probability of not performing a non-reminded action in all four recipes of level 8
logit nrem8 pretreatscore i.treat_R if actioncategoryR==0 & feedback==1 & treatment!=2, vce(cluster pid)	
local temp=e(N_clust)
margins, dydx(treat_R) at(treat_R==0) atmeans post
eststo Dhatp0_CRFB
estadd local IndividualsFB `temp'
estadd local Controls  "\mbox{No}"
summarize nrem8 if actioncategoryR==0 & feedback==1 & treatment==1
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)

*2) Conditional on not having performed a non-reminded action in any of the four recipes of level 8, estimate the probability of not performing the action in all four recipes of level 11
logit nrem11 pretreatscore i.treat_R if actioncategoryR==0 & feedback==1 & treatment!=2 & nrem8==1, vce(cluster pid)	
local temp=e(N_clust)
margins, dydx(treat_R) at(treat_R==0) atmeans post
eststo Dhatp1_CRFB
estadd local IndividualsFB `temp'
estadd local Controls  "\mbox{No}"
summarize nrem11 if actioncategoryR==0 & feedback==1 & treatment==0 & nrem8==1
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)

*3) Conditional on not having performed a non-reminded action in any of the four recipes of level 8, but performing the action in at least one of the four recipes of level 11, estimate the IFSA score for non-reminded actions in level 11 
reg nIFSA11_rescaled pretreatscore i.treat_R if nrem8==1 & nrem11==0 & feedback==1 & treatment!=2 & actioncategoryR==0, vce(cluster pid)
local temp=e(N_clust)
eststo Dhaty1s0_CRFB
estadd local IndividualsFB `temp'
estadd local Controls  "\mbox{No}"
summarize nIFSA11_rescaled if nrem8==1 & nrem11==0 & feedback==1 & treatment==0 & actioncategoryR==0
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)

*4) Conditional on having performed a non-reminded action in at least one of the four recipes of level 8, estimate the IFSA score for the action in level 11 
reg nIFSA11_rescaled pretreatscore treat_R if nrem8==0 & feedback==1 & treatment!=2 & actioncategoryR==0, vce(cluster pid)	
local temp=e(N_clust)
eststo Dhaty1s1_CRFB
estadd local IndividualsFB `temp'
estadd local Controls  "\mbox{No}"
summarize nIFSA11_rescaled if nrem8==0 & feedback==1 & treatment==0 & actioncategoryR==0
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)


*No feedback study: 

*1) Estimate the treatment effect on the probability of not performing a non-reminded action in all four recipes of level 8
***********
logit nrem8 pretreatscore i.treat_R if actioncategoryR==0 & feedback==0 & treatment!=2, vce(cluster pid)	
local temp=e(N_clust)
margins, dydx(treat_R) at(treat_R==0) atmeans post
eststo Dhatp0_CRnoFB
estadd local IndividualsnoFB `temp'
estadd local Controls  "\mbox{No}"
summarize nrem8 if actioncategoryR==0 & feedback==0 & treatment==1
estadd scalar MeanDepVarnoFB =r(mean)
estadd scalar SDDepVarnoFB =r(sd)

*2) Conditional on not having performed a non-reminded action in any of the four recipes of level 8, estimate the probability of not performing the action in all four recipes of level 11
logit nrem11 pretreatscore i.treat_R if actioncategoryR==0 & feedback==0 & treatment!=2 & nrem8==1, vce(cluster pid)	
local temp=e(N_clust)
margins, dydx(treat_R) at(treat_R==0) atmeans post
eststo Dhatp1_CRnoFB
estadd local IndividualsnoFB `temp'
estadd local Controls  "\mbox{No}"
summarize nrem11 if actioncategoryR==0 & feedback==0 & treatment==0 & nrem8==1
estadd scalar MeanDepVarnoFB =r(mean)
estadd scalar SDDepVarnoFB =r(sd)

*3) Conditional on not having performed a non-reminded action in any of the four recipes of level 8, but performing the action in at least one of the four recipes of level 11, estimate the IFSA score for non-reminded actions in level 11 
reg nIFSA11_rescaled pretreatscore i.treat_R if nrem8==1 & nrem11==0 & feedback==0 & treatment!=2 & actioncategoryR==0, vce(cluster pid)
local temp=e(N_clust)
eststo Dhaty1s0_CRnoFB
estadd local IndividualsnoFB `temp'
estadd local Controls  "\mbox{No}"
summarize nIFSA11_rescaled if nrem8==1 & nrem11==0 & feedback==0 & treatment==0 & actioncategoryR==0
estadd scalar MeanDepVarnoFB =r(mean)
estadd scalar SDDepVarnoFB =r(sd)

*4) Conditional on having performed a non-reminded action in at least one of the four recipes of level 8, estimate the IFSA score for the action in level 11 
reg nIFSA11_rescaled pretreatscore treat_R if nrem8==0 & feedback==0 & treatment!=2 & actioncategoryR==0, vce(cluster pid)	
local temp=e(N_clust)
eststo Dhaty1s1_CRnoFB
estadd local IndividualsnoFB `temp'
estadd local Controls  "\mbox{No}"
summarize nIFSA11_rescaled if nrem8==0 & feedback==0 & treatment==0 & actioncategoryR==0
estadd scalar MeanDepVarnoFB =r(mean)
estadd scalar SDDepVarnoFB =r(sd)
}
*Panel A: Feedback study	
esttab Dhatp0_CRFB Dhatp1_CRFB Dhaty1s0_CRFB Dhaty1s1_CRFB using TableS44PanelA.tex, replace cells(b(star fmt(2)) se(fmt(2)))  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (1.treat_R treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2) ///
labels(N "Individuals" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Spillover effects on non-reminded actions due to not performing an action: {\em Reminder} vs {\em Control} (feedback study) \label{tab:tab:intertempsillover1}") ///
legend label varlabels(_cons Constant) ///
mgroups("Non-reminded actions", pattern(1 0 0 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1) \& (2) Dummy that is equal to 1 if the subject never performed a particular non-reminded action in all four recipes of (1) level 8 (2) level 11. (3) \& (4) OLS regression for the sample conditional on a particular non-reminded action (3) not having been performed in all four recipes of level 8 (4) having been performed in at least one of the four recipes of level 8." "(1) \& (2) Marginal effect on the predicted probability. () that a particular type of IFSA is never performed in levels 8 and 11 from logit regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the treatment dummy indicated in the table, a control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses.")	

*Panel B: No feedback study	
esttab Dhatp0_CRnoFB Dhatp1_CRnoFB Dhaty1s0_CRnoFB Dhaty1s1_CRnoFB using TableS44PanelB.tex, replace cells(b(star fmt(2)) se(fmt(2)))  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (1.treat_R treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsnoFB Controls MeanDepVarnoFB SDDepVarnoFB, fmt(0 0 2 2 2) ///
labels(N "Individuals" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Spillover effects on non-reminded actions due to not performing an action: {\em Reminder} vs {\em Control} (no feedback study) \label{tab:tab:intertempsillover1}") ///
legend label varlabels(_cons Constant) ///
mgroups("Non-reminded actions", pattern(1 0 0 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1) \& (2) Dummy that is equal to 1 if the subject never performed a particular non-reminded action in all four recipes of (1) level 8 (2) level 11. (3) \& (4) OLS regression for the sample conditional on a particular non-reminded action (3) not having been performed in all four recipes of level 8 (4) having been performed in at least one of the four recipes of level 8." "(1) \& (2) Marginal effect on the predicted probability. () that a particular type of IFSA is never performed in levels 8 and 11 from logit regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the treatment dummy indicated in the table, a control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses.")	
restore



*** Table S45. Spillover effects on never reminded actions due to not performing an action: ManyManyReminderss vs Control 
********************************************************************************
preserve
cd "$temp"
use intertempdata, clear
capture drop nIFSA11_rescaled
* Number of IFSAs over four recipes in level 11: Transform into average predicted total score for the seven never reminded actions per recipe 
gen nIFSA11_rescaled=nIFSA11*7/4
cd "$output"

eststo clear
quiet{
*Feedback study: 

*1) Estimate the treatment effect on the probability of not performing a never reminded action in all four recipes of level 8
logit nrem8 pretreatscore i.treat_MR if actioncategoryMR==0 & feedback==1 & treatment!=1, vce(cluster pid)	
local temp=e(N_clust)
margins, dydx(treat_MR) at(treat_MR==0) atmeans post
eststo Dhatp0_CRFB
estadd local IndividualsFB `temp'
estadd local Controls  "\mbox{No}"
summarize nrem8 if actioncategoryMR==0 & feedback==1 & treatment==1
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)

*2) Conditional on not having performed a never reminded action in any of the four recipes of level 8, estimate the probability of not performing the action in all four recipes of level 11
logit nrem11 pretreatscore i.treat_MR if actioncategoryMR==0 & feedback==1 & treatment!=1 & nrem8==1, vce(cluster pid)	
local temp=e(N_clust)
margins, dydx(treat_MR) at(treat_MR==0) atmeans post
eststo Dhatp1_CRFB
estadd local IndividualsFB `temp'
estadd local Controls  "\mbox{No}"
summarize nrem11 if actioncategoryMR==0 & feedback==1 & treatment==0 & nrem8==1
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)

*3) Conditional on not having performed a never reminded action in any of the four recipes of level 8, but performing the action in at least one of the four recipes of level 11, estimate the IFSA score for never reminded actions in level 11 
reg nIFSA11_rescaled pretreatscore i.treat_MR if nrem8==1 & nrem11==0 & feedback==1 & treatment!=1 & actioncategoryMR==0, vce(cluster pid)
local temp=e(N_clust)
eststo Dhaty1s0_CRFB
estadd local IndividualsFB `temp'
estadd local Controls  "\mbox{No}"
summarize nIFSA11_rescaled if nrem8==1 & nrem11==0 & feedback==1 & treatment==0 & actioncategoryMR==0
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)

*4) Conditional on having performed a never reminded action in at least one of the four recipes of level 8, estimate the IFSA score for the action in level 11 
reg nIFSA11_rescaled pretreatscore treat_MR if nrem8==0 & feedback==1 & treatment!=1 & actioncategoryMR==0, vce(cluster pid)	
local temp=e(N_clust)
eststo Dhaty1s1_CRFB
estadd local IndividualsFB `temp'
estadd local Controls  "\mbox{No}"
summarize nIFSA11_rescaled if nrem8==0 & feedback==1 & treatment==0 & actioncategoryMR==0
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)


*No feedback study: 

*1) Estimate the treatment effect on the probability of not performing a never reminded action in all four recipes of level 8
***********
logit nrem8 pretreatscore i.treat_MR if actioncategoryMR==0 & feedback==0 & treatment!=1, vce(cluster pid)	
local temp=e(N_clust)
margins, dydx(treat_MR) at(treat_MR==0) atmeans post
eststo Dhatp0_CRnoFB
estadd local IndividualsnoFB `temp'
estadd local Controls  "\mbox{No}"
summarize nrem8 if actioncategoryMR==0 & feedback==0 & treatment==1
estadd scalar MeanDepVarnoFB =r(mean)
estadd scalar SDDepVarnoFB =r(sd)

*2) Conditional on not having performed a never reminded action in any of the four recipes of level 8, estimate the probability of not performing the action in all four recipes of level 11
logit nrem11 pretreatscore i.treat_MR if actioncategoryMR==0 & feedback==0 & treatment!=1 & nrem8==1, vce(cluster pid)	
local temp=e(N_clust)
margins, dydx(treat_MR) at(treat_MR==0) atmeans post
eststo Dhatp1_CRnoFB
estadd local IndividualsnoFB `temp'
estadd local Controls  "\mbox{No}"
summarize nrem11 if actioncategoryMR==0 & feedback==0 & treatment==0 & nrem8==1
estadd scalar MeanDepVarnoFB =r(mean)
estadd scalar SDDepVarnoFB =r(sd)

*3) Conditional on not having performed a never reminded action in any of the four recipes of level 8, but performing the action in at least one of the four recipes of level 11, estimate the IFSA score for never reminded actions in level 11 
reg nIFSA11_rescaled pretreatscore i.treat_MR if nrem8==1 & nrem11==0 & feedback==0 & treatment!=1 & actioncategoryMR==0, vce(cluster pid)
local temp=e(N_clust)
eststo Dhaty1s0_CRnoFB
estadd local IndividualsnoFB `temp'
estadd local Controls  "\mbox{No}"
summarize nIFSA11_rescaled if nrem8==1 & nrem11==0 & feedback==0 & treatment==0 & actioncategoryMR==0
estadd scalar MeanDepVarnoFB =r(mean)
estadd scalar SDDepVarnoFB =r(sd)

*4) Conditional on having performed a never reminded action in at least one of the four recipes of level 8, estimate the IFSA score for the action in level 11 
reg nIFSA11_rescaled pretreatscore treat_MR if nrem8==0 & feedback==0 & treatment!=1 & actioncategoryMR==0, vce(cluster pid)	
local temp=e(N_clust)
eststo Dhaty1s1_CRnoFB
estadd local IndividualsnoFB `temp'
estadd local Controls  "\mbox{No}"
summarize nIFSA11_rescaled if nrem8==0 & feedback==0 & treatment==0 & actioncategoryMR==0
estadd scalar MeanDepVarnoFB =r(mean)
estadd scalar SDDepVarnoFB =r(sd)
}
*Panel A: Feedback study	
esttab Dhatp0_CRFB Dhatp1_CRFB Dhaty1s0_CRFB Dhaty1s1_CRFB using TableS45PanelA.tex, replace cells(b(star fmt(2)) se(fmt(2)))  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (1.treat_MR treat_MR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2) ///
labels(N "Individuals" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Spillover effects on non-reminded actions due to not performing an action: {\em ManyReminders} vs {\em Control} (feedback study) \label{tab:tab:intertempsillover2}") ///
legend label varlabels(_cons Constant) ///
mgroups("Non-reminded actions", pattern(1 0 0 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1) \& (2) Dummy that is equal to 1 if the subject never performed a particular never reminded action in all four recipes of (1) level 8 (2) level 11. (3) \& (4) OLS regression for the sample conditional on a particular never reminded action (3) not having been performed in all four recipes of level 8 (4) having been performed in at least one of the four recipes of level 8." "(1) \& (2) Marginal effect on the predicted probability. () that a particular type of IFSA is never performed in levels 8 and 11 from logit regressions of the dependent variable on a treatment dummy (ManyReminders vs Control) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Control}." "Specifications include, next to the treatment dummy indicated in the table, a control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses.")	

*Panel B: No feedback study	
esttab Dhatp0_CRnoFB Dhatp1_CRnoFB Dhaty1s0_CRnoFB Dhaty1s1_CRnoFB using TableS45PanelB.tex, replace cells(b(star fmt(2)) se(fmt(2)))  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (1.treat_MR treat_MR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsnoFB Controls MeanDepVarnoFB SDDepVarnoFB, fmt(0 0 2 2 2) ///
labels(N "Individuals" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Spillover effects on non-reminded actions due to not performing an action: {\em ManyReminders} vs {\em Control} (no feedback study) \label{tab:tab:intertempsillover2}") ///
legend label varlabels(_cons Constant) ///
mgroups("Non-reminded actions", pattern(1 0 0 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1) \& (2) Dummy that is equal to 1 if the subject never performed a particular never reminded action in all four recipes of (1) level 8 (2) level 11. (3) \& (4) OLS regression for the sample conditional on a particular never reminded action (3) not having been performed in all four recipes of level 8 (4) having been performed in at least one of the four recipes of level 8." "(1) \& (2) Marginal effect on the predicted probability. () that a particular type of IFSA is never performed in levels 8 and 11 from logit regressions of the dependent variable on a treatment dummy (ManyReminders vs Control) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Control}." "Specifications include, next to the treatment dummy indicated in the table, a control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses.")	
restore


** In text: Counterfactual analysis Reminder vs Control

*Feedback study: 
preserve
cd "$temp"
use intertempdata, clear
cd "$output"

quietly{ 
bysort pid: egen temp_C=mean(ifsa_not_remind) if level ==11 & feedback==1 & treatment==0 & tagrecipe ==1 
gen temp1=-1
replace temp1=temp_C if temp_C!=.
bysort pid: egen y1_C=max(temp1)
bysort pid: egen temp_R=mean(ifsa_not_remind) if level ==11 & feedback==1 & treatment==1 & tagrecipe ==1 
gen temp2=-1
replace temp2=temp_R if temp_R!=.
bysort pid: egen y1_R=max(temp2)

keep nrem8 nrem11 nIFSA11 pretreatscore actioncategoryR feedback treatment nobs treat_R pid pid y1_C y1_R 
 
drop if actioncategoryR==1
drop if nobs>13
drop if treatment==2	

capture drop hatp*
capture drop yhat*

*Estimate the relevant conditional distributions for the stacked data on non-reminded actions 

*1) Estimate the treatment effect on the probability of not performing a non-reminded action in all four recipes of level 8
logit nrem8 pretreatscore treat_R if actioncategoryR==0 & feedback==1 & treatment!=2, vce(cluster pid)	
* Retrieve coefficients
matrix bp1_T = e(b)
scalar bp1_T_pretreatscore 		   = bp1_T[1, 1]
scalar bp1_T_treat_R 			   = bp1_T[1, 2]
scalar bp1_T_const 			       = bp1_T[1, 3]
*** Conditional distribution <T_i|X_i> (conditional on actual treatment) estimated by logistic regression
* Calculate linear predictor (log-odds)
capture drop lin_pred
gen lin_pred=bp1_T_const+  bp1_T_pretreatscore * pretreatscore + bp1_T_treat_R*treat_R if feedback==1 & treatment!=2 & actioncategoryR==0
* Calculate predicted probabilities using logistic function 
gen hatp0_T = exp(lin_pred) / (1 + exp(lin_pred))  if feedback==1 & treatment!=2 & actioncategoryR==0

*2) Conditional on not having performed a non-reminded action in any of the four recipes of level 8, estimate the probability of not performing the action in all four recipes of level 11
logit nrem11 pretreatscore treat_R if actioncategoryR==0 & feedback==1 & treatment!=2 & nrem8==1, vce(cluster pid)	
* Retrieve coefficients
matrix bp1_T_s0CF1 = e(b)
scalar bp1_T_s0CF1_pretreatscore 		   = bp1_T_s0CF1[1, 1]
scalar bp1_T_s0CF1_treat_R 			   = bp1_T_s0CF1[1, 2]
scalar bp1_T_s0CF1_const 			       = bp1_T_s0CF1[1, 3]
*** Conditional distribution <T_i|X_i> (conditional on actual treatment) estimated by logistic regression
* Calculate linear predictor (log-odds)
capture drop lin_pred
gen lin_pred=bp1_T_s0CF1_const+  bp1_T_s0CF1_pretreatscore * pretreatscore + bp1_T_s0CF1_treat_R*treat_R if feedback==1 & treatment!=2 & actioncategoryR==0
* Calculate predicted probabilities using logistic function 
gen hatp1_T_s0 = exp(lin_pred) / (1 + exp(lin_pred))  if feedback==1 & treatment!=2 & actioncategoryR==0

*3) Conditional on not having performed a non-reminded action in any of the four recipes of level 8, but performing the action in at least one of the four recipes of level 11, estimate the IFSA score for non-reminded actions in level 11 
reg nIFSA11 pretreatscore treat_R if nrem8==1 & nrem11==0 & feedback==1 & treatment!=2 & actioncategoryR==0, vce(cluster pid)	
*** Counterfactual conditional distribution <C|X_i> (conditional on Control treatment) estimated by OLS regression
* Retrieve coefficients
matrix by1_C_s0 = e(b)
scalar by1_C_s0_pretreatscore = by1_C_s0[1, 1]
scalar by1_C_s0_treat_R = by1_C_s0[1, 2]
scalar by1_C_s0_const = by1_C_s0[1, 3]
* Calculate predicted the average for one non-reminded action over four recipes in level 11 (conditional on treatment Control)
gen haty1_C_s0=by1_C_s0_const+  by1_C_s0_pretreatscore * pretreatscore if feedback==1 & treatment!=2 & actioncategoryR==0
* Transform into total score for the ten non-reminded actions per recipe 
replace haty1_C_s0=haty1_C_s0*10/4 if feedback==1 & treatment!=2 & actioncategoryR==0

*4) Conditional on having performed a non-reminded action in at least one of the four recipes of level 8, estimate the IFSA score for the action in level 11 
reg nIFSA11 pretreatscore treat_R if nrem8==0 & feedback==1 & treatment!=2 & actioncategoryR==0, vce(cluster pid)	
*** Counterfactual conditional distribution <C|X_i> (conditional on Control treatment) estimated by OLS regression
* Retrieve coefficients
matrix by1_C_s1 = e(b)
scalar by1_C_s1_pretreatscore = by1_C_s1[1, 1]
scalar by1_C_s1_treat_R = by1_C_s0[1, 2]
scalar by1_C_s1_const = by1_C_s1[1, 3]
* Calculate predicted the average for one non-reminded action over four recipes in level 11 (conditional on treatment Control)
gen haty1_C_s1=by1_C_s1_const+  by1_C_s1_pretreatscore * pretreatscore if feedback==1 & treatment!=2 & actioncategoryR==0
*Transform into total score for the ten non-reminded actions per recipe 
 replace haty1_C_s1=haty1_C_s1*10/4

********
*Predicted IFSA score per recipe in level 11 for the non-reminded actions: 

*Conditional distributions used to estimate the treatment effect on the probability of not performing an action in any of the four recipes in level 8 and, if so, the treatment effect on the probability of not performing an action in any of the four recipes in level 11. For all the other paths, the counteractual distributions conditional on treatment Control are used.
* \hat{p^0_{<T_i|X_i>}: The conditional distribution <T_i|X_i> for the probability of not having performed an action in any of the four recipes of level 8
* \hat{p^1_{<T_i|X_i>}: The conditional distribution <T_i|X_i> for the probability of not having performed an action in any of the four recipes of level 11, conditional on not having performed an action in any of the four recipes of level 8
* \hat{y^1_{<C|X_i,s_0=0>}:  The counterfactual distribution <C|X_i> for the IFSA score per recipe in level 11 for the non-reminded actions, conditional on not having performed an action in any of the four recipes of level 8 but performing an action in at least one of the four recipes of level 11 and conditional on treatment Control
* \hat{y^1_{<C|X_i,s_0=1>}:  The counterfactual distribution <C|X_i> for the IFSA score per recipe in level 11 for the non-reminded actions, conditional on having performed an action in at least one of the four recipes of level 8 and conditional on treatment Control
********

gen haty1=hatp0_T*(hatp1_T_s0*0+(1-hatp1_T_s0)*haty1_C_s0)+ (1-hatp0_T)*haty1_C_s1

*Actual treatement difference (in the sample drawn - relevant for bootstrap)
sum y1_C if  feedback==1 & treatment==0 & nobs==4 , meanonly
local my1_C=r(mean)
gen my1_C=`my1_C'
sum y1_R if  feedback==1 & treatment==1 & nobs==4 , meanonly
local my1_R=r(mean)
gen my1_R=`my1_R'
local Dy1=`my1_R' - `my1_C'
gen Dy1= `Dy1'

*Results from counterfactual estimation 
sum hatp0_T if feedback==1 & treatment==0 & nobs ==4 , meanonly
local avghatp0_C=r(mean)
sum hatp0_T if feedback==1 & treatment==1 & nobs ==4 , meanonly
local avghatp0_R=r(mean)
sum hatp1_T_s0 if feedback==1 & treatment==0 & nobs ==4 , meanonly
local avghatp1_C_s0=r(mean)
sum hatp1_T_s0 if feedback==1 & treatment==1 & nobs ==4 , meanonly
local avghatp1_R_s0=r(mean)
sum haty1_C_s0 if feedback==1 & treatment==0 & nobs ==4 , meanonly
local avghaty1_C_s0=r(mean)
sum haty1_C_s0 if feedback==1 & treatment==1 & nobs ==4 , meanonly
local avghaty1_RC_s0=r(mean)
sum haty1_C_s1 if feedback==1 & treatment==0 & nobs ==4 , meanonly
local avghaty1_C_s1=r(mean)
sum haty1_C_s1 if feedback==1 & treatment==1 & nobs ==4 , meanonly
local avghaty1_RC_s1=r(mean)

*Counterfactual treatment difference (per recipe)
sum haty1 if feedback==1 & treatment==0 & nobs ==4 , meanonly
local avghaty1_C=r(mean)
sum haty1 if feedback==1 & treatment==1 & nobs ==4 , meanonly
local avghaty1_R=r(mean)
local Dhaty1=`avghaty1_R'-`avghaty1_C'
local Dyratio= `Dhaty1' / `Dy1'
}

di "-----------------------------------------------------------------"  _newline  ///
    "Counterfactual analysis Reminder vs Control (feedback study)"  _newline  ///
    "-----------------------------------------------------------------"  _newline  ///
    "Observed average score per recipe for a non-reminded action in level 11: Control: " `my1_C' " Reminder: " `my1_R'   _newline  ///
    "Observed treatment difference: "  `Dy1'   _newline  ///
    "---------------------------------"  _newline  ///
	"Counterfactual: Control: " `avghaty1_C' " Reminder: " `avghaty1_R'   _newline  ///
    "Counterfactual treatment difference: "  `Dhaty1'   _newline  ///
	"---------------------------------"  _newline  ///
    "Ratio (Counterfactual treatment difference)/(Observed treatment difference)= " `Dyratio'   _newline  ///
    "(\bar{\hat{y}}^1_{<R|X_i>}-\bar{\hat{y}^1_{<C|X_i>})/(\bar{y}^1_R-\bar{y}^1_C)"  _newline  ///
	"---------------------------------"  _newline  ///
    "Averages for the path variables: "  _newline  ///
    "\bar{\hat{p}}^0_C: " `avghatp0_C' " \bar{\hat{p}}^0_R: " `avghatp0_R'   _newline  ///
    "\bar{\hat{p}}^1_{C|s_0}: " `avghatp1_C_s0' " \bar{\hat{p}}^1_{R|s_0}: " `avghatp1_R_s0'   _newline  ///
    "\bar{\hat{y}}^1_{C|s_0}: " `avghaty1_C_s0' " \bar{\hat{y}}^1_{R<C|X_i>|s_0}: " `avghaty1_RC_s0'   _newline  ///
    "\bar{\hat{y}}^1_{C|s_1}: " `avghaty1_C_s1' " \bar{\hat{y}}^1_{R<C|X_i>|s_1}: " `avghaty1_RC_s1'
restore

*No feedback study: 
preserve
cd "$temp"
use intertempdata, clear
cd "$output"

quietly{ 
bysort pid: egen temp_C=mean(ifsa_not_remind) if level ==11 & feedback==0 & treatment==0 & tagrecipe ==1 
gen temp1=-1
replace temp1=temp_C if temp_C!=.
bysort pid: egen y1_C=max(temp1)
bysort pid: egen temp_R=mean(ifsa_not_remind) if level ==11 & feedback==0 & treatment==1 & tagrecipe ==1 
gen temp2=-1
replace temp2=temp_R if temp_R!=.
bysort pid: egen y1_R=max(temp2)

keep nrem8 nrem11 nIFSA11 pretreatscore actioncategoryR feedback treatment nobs treat_R pid pid y1_C y1_R 
 
drop if actioncategoryR==1
drop if nobs>13
drop if treatment==2	

capture drop hatp*
capture drop yhat*

*Estimate the relevant conditional distributions for the stacked data on non-reminded actions 

*1) Estimate the treatment effect on the probability of not performing a non-reminded action in all four recipes of level 8
logit nrem8 pretreatscore treat_R if actioncategoryR==0 & feedback==0 & treatment!=2, vce(cluster pid)	
* Retrieve coefficients
matrix bp1_T = e(b)
scalar bp1_T_pretreatscore 		   = bp1_T[1, 1]
scalar bp1_T_treat_R 			   = bp1_T[1, 2]
scalar bp1_T_const 			       = bp1_T[1, 3]
*** Conditional distribution <T_i|X_i> (conditional on actual treatment) estimated by logistic regression
* Calculate linear predictor (log-odds)
capture drop lin_pred
gen lin_pred=bp1_T_const+  bp1_T_pretreatscore * pretreatscore + bp1_T_treat_R*treat_R if feedback==0 & treatment!=2 & actioncategoryR==0
* Calculate predicted probabilities using logistic function 
gen hatp0_T = exp(lin_pred) / (1 + exp(lin_pred))  if feedback==0 & treatment!=2 & actioncategoryR==0

*2) Conditional on not having performed a non-reminded action in any of the four recipes of level 8, estimate the probability of not performing the action in all four recipes of level 11
logit nrem11 pretreatscore treat_R if actioncategoryR==0 & feedback==0 & treatment!=2 & nrem8==1, vce(cluster pid)	
* Retrieve coefficients
matrix bp1_T_s0CF1 = e(b)
scalar bp1_T_s0CF1_pretreatscore 		   = bp1_T_s0CF1[1, 1]
scalar bp1_T_s0CF1_treat_R 			   = bp1_T_s0CF1[1, 2]
scalar bp1_T_s0CF1_const 			       = bp1_T_s0CF1[1, 3]
*** Conditional distribution <T_i|X_i> (conditional on actual treatment) estimated by logistic regression
* Calculate linear predictor (log-odds)
capture drop lin_pred
gen lin_pred=bp1_T_s0CF1_const+  bp1_T_s0CF1_pretreatscore * pretreatscore + bp1_T_s0CF1_treat_R*treat_R if feedback==0 & treatment!=2 & actioncategoryR==0
* Calculate predicted probabilities using logistic function 
gen hatp1_T_s0 = exp(lin_pred) / (1 + exp(lin_pred))  if feedback==0 & treatment!=2 & actioncategoryR==0

*3) Conditional on not having performed a non-reminded action in any of the four recipes of level 8, but performing the action in at least one of the four recipes of level 11, estimate the IFSA score for non-reminded actions in level 11 
reg nIFSA11 pretreatscore treat_R if nrem8==1 & nrem11==0 & feedback==0 & treatment!=2 & actioncategoryR==0, vce(cluster pid)	
*** Counterfactual conditional distribution <C|X_i> (conditional on Control treatment) estimated by OLS regression
* Retrieve coefficients
matrix by1_C_s0 = e(b)
scalar by1_C_s0_pretreatscore = by1_C_s0[1, 1]
scalar by1_C_s0_treat_R = by1_C_s0[1, 2]
scalar by1_C_s0_const = by1_C_s0[1, 3]
* Calculate predicted the average for one non-reminded action over four recipes in level 11 (conditional on treatment Control)
gen haty1_C_s0=by1_C_s0_const+  by1_C_s0_pretreatscore * pretreatscore if feedback==0 & treatment!=2 & actioncategoryR==0
* Transform into total score for the ten non-reminded actions per recipe 
replace haty1_C_s0=haty1_C_s0*10/4 if feedback==0 & treatment!=2 & actioncategoryR==0

*4) Conditional on having performed a non-reminded action in at least one of the four recipes of level 8, estimate the IFSA score for the action in level 11 
reg nIFSA11 pretreatscore treat_R if nrem8==0 & feedback==0 & treatment!=2 & actioncategoryR==0, vce(cluster pid)	
*** Counterfactual conditional distribution <C|X_i> (conditional on Control treatment) estimated by OLS regression
* Retrieve coefficients
matrix by1_C_s1 = e(b)
scalar by1_C_s1_pretreatscore = by1_C_s1[1, 1]
scalar by1_C_s1_treat_R = by1_C_s0[1, 2]
scalar by1_C_s1_const = by1_C_s1[1, 3]
* Calculate predicted the average for one non-reminded action over four recipes in level 11 (conditional on treatment Control)
gen haty1_C_s1=by1_C_s1_const+  by1_C_s1_pretreatscore * pretreatscore if feedback==0 & treatment!=2 & actioncategoryR==0
*Transform into total score for the ten non-reminded actions per recipe 
 replace haty1_C_s1=haty1_C_s1*10/4

********
*Predicted IFSA score per recipe in level 11 for the non-reminded actions: 

*Conditional distributions used to estimate the treatment effect on the probability of not performing an action in any of the four recipes in level 8 and, if so, the treatment effect on the probability of not performing an action in any of the four recipes in level 11. For all the other paths, the counteractual distributions conditional on treatment Control are used.
* \hat{p^0_{<T_i|X_i>}: The conditional distribution <T_i|X_i> for the probability of not having performed an action in any of the four recipes of level 8
* \hat{p^1_{<T_i|X_i>}: The conditional distribution <T_i|X_i> for the probability of not having performed an action in any of the four recipes of level 11, conditional on not having performed an action in any of the four recipes of level 8
* \hat{y^1_{<C|X_i,s_0=0>}:  The counterfactual distribution <C|X_i> for the IFSA score per recipe in level 11 for the non-reminded actions, conditional on not having performed an action in any of the four recipes of level 8 but performing an action in at least one of the four recipes of level 11 and conditional on treatment Control
* \hat{y^1_{<C|X_i,s_0=1>}:  The counterfactual distribution <C|X_i> for the IFSA score per recipe in level 11 for the non-reminded actions, conditional on having performed an action in at least one of the four recipes of level 8 and conditional on treatment Control
********

gen haty1=hatp0_T*(hatp1_T_s0*0+(1-hatp1_T_s0)*haty1_C_s0)+ (1-hatp0_T)*haty1_C_s1

*Actual treatement difference (in the sample drawn - relevant for bootstrap)
sum y1_C if  feedback==0 & treatment==0 & nobs==4 , meanonly
local my1_C=r(mean)
gen my1_C=`my1_C'
sum y1_R if  feedback==0 & treatment==1 & nobs==4 , meanonly
local my1_R=r(mean)
gen my1_R=`my1_R'
local Dy1=`my1_R' - `my1_C'
gen Dy1= `Dy1'

*Results from counterfactual estimation 
sum hatp0_T if feedback==0 & treatment==0 & nobs ==4 , meanonly
local avghatp0_C=r(mean)
sum hatp0_T if feedback==0 & treatment==1 & nobs ==4 , meanonly
local avghatp0_R=r(mean)
sum hatp1_T_s0 if feedback==0 & treatment==0 & nobs ==4 , meanonly
local avghatp1_C_s0=r(mean)
sum hatp1_T_s0 if feedback==0 & treatment==1 & nobs ==4 , meanonly
local avghatp1_R_s0=r(mean)
sum haty1_C_s0 if feedback==0 & treatment==0 & nobs ==4 , meanonly
local avghaty1_C_s0=r(mean)
sum haty1_C_s0 if feedback==0 & treatment==1 & nobs ==4 , meanonly
local avghaty1_RC_s0=r(mean)
sum haty1_C_s1 if feedback==0 & treatment==0 & nobs ==4 , meanonly
local avghaty1_C_s1=r(mean)
sum haty1_C_s1 if feedback==0 & treatment==1 & nobs ==4 , meanonly
local avghaty1_RC_s1=r(mean)

*Counterfactual treatment difference (per recipe)
sum haty1 if feedback==0 & treatment==0 & nobs ==4 , meanonly
local avghaty1_C=r(mean)
sum haty1 if feedback==0 & treatment==1 & nobs ==4 , meanonly
local avghaty1_R=r(mean)
local Dhaty1=`avghaty1_R'-`avghaty1_C'
local Dyratio= `Dhaty1' / `Dy1'
}

di "-----------------------------------------------------------------"  _newline  ///
    "Counterfactual analysis Reminder vs Control (no feedback study)"  _newline  ///
    "-----------------------------------------------------------------"  _newline  ///
    "Observed average score per recipe for a non-reminded action in level 11: Control: " `my1_C' " Reminder: " `my1_R'   _newline  ///
    "Observed treatment difference: "  `Dy1'   _newline  ///
    "---------------------------------"  _newline  ///
	"Counterfactual: Control: " `avghaty1_C' " Reminder: " `avghaty1_R'   _newline  ///
    "Counterfactual treatment difference: "  `Dhaty1'   _newline  ///
	"---------------------------------"  _newline  ///
    "Ratio (Counterfactual treatment difference)/(Observed treatment difference)= " `Dyratio'   _newline  ///
    "(\bar{\hat{y}}^1_{<R|X_i>}-\bar{\hat{y}^1_{<C|X_i>})/(\bar{y}^1_R-\bar{y}^1_C)"  _newline  ///
	"---------------------------------"  _newline  ///
    "Averages for the path variables: "  _newline  ///
    "\bar{\hat{p}}^0_C: " `avghatp0_C' " \bar{\hat{p}}^0_R: " `avghatp0_R'   _newline  ///
    "\bar{\hat{p}}^1_{C|s_0}: " `avghatp1_C_s0' " \bar{\hat{p}}^1_{R|s_0}: " `avghatp1_R_s0'   _newline  ///
    "\bar{\hat{y}}^1_{C|s_0}: " `avghaty1_C_s0' " \bar{\hat{y}}^1_{R<C|X_i>|s_0}: " `avghaty1_RC_s0'   _newline  ///
    "\bar{\hat{y}}^1_{C|s_1}: " `avghaty1_C_s1' " \bar{\hat{y}}^1_{R<C|X_i>|s_1}: " `avghaty1_RC_s1'
restore


** In text: Counterfactual analysis ManyReminders vs Control

*Feedback study: 
preserve
cd "$temp"
use intertempdata, clear
cd "$output"

quietly{
bysort pid: egen temp_C=mean(ifsa_never_remind) if level ==11 & feedback==1 & treatment==0 & tagrecipe ==1 
gen temp1=-1
replace temp1=temp_C if temp_C!=.
bysort pid: egen y1_C=max(temp1)
bysort pid: egen temp_MR=mean(ifsa_never_remind) if level ==11 & feedback==1 & treatment==2 & tagrecipe ==1 
gen temp2=-1
replace temp2=temp_MR if temp_MR!=.
bysort pid: egen y1_MR=max(temp2)

keep nrem8 nrem11 nIFSA11 pretreatscore actioncategoryMR feedback treatment nobs treat_MR pid pid y1_C y1_MR 
 
drop if actioncategoryMR==1
drop if nobs>13
drop if treatment==1	

capture drop hatp*
capture drop yhat*

*Estimate the relevant conditional distributions for the stacked data on never reminded actions 

*1) Estimate the treatment effect on the probability of not performing a never reminded action in all four recipes of level 8
logit nrem8 pretreatscore treat_MR if actioncategoryMR==0 & feedback==1 & treatment!=1, vce(cluster pid)	
* Retrieve coefficients
matrix bp1_T = e(b)
scalar bp1_T_pretreatscore 		   = bp1_T[1, 1]
scalar bp1_T_treat_MR 			   = bp1_T[1, 2]
scalar bp1_T_const 			       = bp1_T[1, 3]
*** Conditional distribution <T_i|X_i> (conditional on actual treatment) estimated by logistic regression
* Calculate linear predictor (log-odds)
capture drop lin_pred
gen lin_pred=bp1_T_const+  bp1_T_pretreatscore * pretreatscore + bp1_T_treat_MR*treat_MR if feedback==1 & treatment!=1 & actioncategoryMR==0
* Calculate predicted probabilities using logistic function 
gen hatp0_T = exp(lin_pred) / (1 + exp(lin_pred))  if feedback==1 & treatment!=1 & actioncategoryMR==0

*2) Conditional on not having performed a never reminded action in any of the four recipes of level 8, estimate the probability of not performing the action in all four recipes of level 11
logit nrem11 pretreatscore treat_MR if actioncategoryMR==0 & feedback==1 & treatment!=1 & nrem8==1, vce(cluster pid)	
* Retrieve coefficients
matrix bp1_T_s0CF1 = e(b)
scalar bp1_T_s0CF1_pretreatscore 		   = bp1_T_s0CF1[1, 1]
scalar bp1_T_s0CF1_treat_MR 			   = bp1_T_s0CF1[1, 2]
scalar bp1_T_s0CF1_const 			       = bp1_T_s0CF1[1, 3]
*** Conditional distribution <T_i|X_i> (conditional on actual treatment) estimated by logistic regression
* Calculate linear predictor (log-odds)
capture drop lin_pred
gen lin_pred=bp1_T_s0CF1_const+  bp1_T_s0CF1_pretreatscore * pretreatscore + bp1_T_s0CF1_treat_MR*treat_MR if feedback==1 & treatment!=1 & actioncategoryMR==0
* Calculate predicted probabilities using logistic function 
gen hatp1_T_s0 = exp(lin_pred) / (1 + exp(lin_pred))  if feedback==1 & treatment!=1 & actioncategoryMR==0

*3) Conditional on not having performed a never reminded action in any of the four recipes of level 8, but performing the action in at least one of the four recipes of level 11, estimate the IFSA score for never reminded actions in level 11 
reg nIFSA11 pretreatscore treat_MR if nrem8==1 & nrem11==0 & feedback==1 & treatment!=1 & actioncategoryMR==0, vce(cluster pid)	
*** Counterfactual conditional distribution <C|X_i> (conditional on Control treatment) estimated by OLS regression
* Retrieve coefficients
matrix by1_C_s0 = e(b)
scalar by1_C_s0_pretreatscore = by1_C_s0[1, 1]
scalar by1_C_s0_treat_MR = by1_C_s0[1, 2]
scalar by1_C_s0_const = by1_C_s0[1, 3]
* Calculate predicted the average for one never reminded action over four recipes in level 11 (conditional on treatment Control)
gen haty1_C_s0=by1_C_s0_const+  by1_C_s0_pretreatscore * pretreatscore if feedback==1 & treatment!=1 & actioncategoryMR==0
* Transform into total score for the ten never reminded actions per recipe 
replace haty1_C_s0=haty1_C_s0*7/4 if feedback==1 & treatment!=1 & actioncategoryMR==0

*4) Conditional on having performed a never reminded action in at least one of the four recipes of level 8, estimate the IFSA score for the action in level 11 
reg nIFSA11 pretreatscore treat_MR if nrem8==0 & feedback==1 & treatment!=1 & actioncategoryMR==0, vce(cluster pid)	
*** Counterfactual conditional distribution <C|X_i> (conditional on Control treatment) estimated by OLS regression
* Retrieve coefficients
matrix by1_C_s1 = e(b)
scalar by1_C_s1_pretreatscore = by1_C_s1[1, 1]
scalar by1_C_s1_treat_MR = by1_C_s0[1, 2]
scalar by1_C_s1_const = by1_C_s1[1, 3]
* Calculate predicted the average for one never reminded action over four recipes in level 11 (conditional on treatment Control)
gen haty1_C_s1=by1_C_s1_const+  by1_C_s1_pretreatscore * pretreatscore if feedback==1 & treatment!=1 & actioncategoryMR==0
*Transform into total score for the ten never reminded actions per recipe 
 replace haty1_C_s1=haty1_C_s1*7/4

********
*Predicted IFSA score per recipe in level 11 for the never reminded actions: 

*Conditional distributions used to estimate the treatment effect on the probability of not performing an action in any of the four recipes in level 8 and, if so, the treatment effect on the probability of not performing an action in any of the four recipes in level 11. For all the other paths, the counteractual distributions conditional on treatment Control are used.
* \hat{p^0_{<T_i|X_i>}: The conditional distribution <T_i|X_i> for the probability of not having performed an action in any of the four recipes of level 8
* \hat{p^1_{<T_i|X_i>}: The conditional distribution <T_i|X_i> for the probability of not having performed an action in any of the four recipes of level 11, conditional on not having performed an action in any of the four recipes of level 8
* \hat{y^1_{<C|X_i,s_0=0>}:  The counterfactual distribution <C|X_i> for the IFSA score per recipe in level 11 for the never reminded actions, conditional on not having performed an action in any of the four recipes of level 8 but performing an action in at least one of the four recipes of level 11 and conditional on treatment Control
* \hat{y^1_{<C|X_i,s_0=1>}:  The counterfactual distribution <C|X_i> for the IFSA score per recipe in level 11 for the never reminded actions, conditional on having performed an action in at least one of the four recipes of level 8 and conditional on treatment Control
********

gen haty1=hatp0_T*(hatp1_T_s0*0+(1-hatp1_T_s0)*haty1_C_s0)+ (1-hatp0_T)*haty1_C_s1

*Actual treatement difference (in the sample drawn - relevant for bootstrap)
sum y1_C if  feedback==1 & treatment==0 & nobs==4 , meanonly
local my1_C=r(mean)
gen my1_C=`my1_C'
sum y1_MR if  feedback==1 & treatment==2 & nobs==4 , meanonly
local my1_MR=r(mean)
gen my1_MR=`my1_MR'
local Dy1=`my1_MR' - `my1_C'
gen Dy1= `Dy1'

*Results from counterfactual estimation 
sum hatp0_T if feedback==1 & treatment==0 & nobs ==4 , meanonly
local avghatp0_C=r(mean)
sum hatp0_T if feedback==1 & treatment==2 & nobs ==4 , meanonly
local avghatp0_MR=r(mean)
sum hatp1_T_s0 if feedback==1 & treatment==0 & nobs ==4 , meanonly
local avghatp1_C_s0=r(mean)
sum hatp1_T_s0 if feedback==1 & treatment==2 & nobs ==4 , meanonly
local avghatp1_MR_s0=r(mean)
sum haty1_C_s0 if feedback==1 & treatment==0 & nobs ==4 , meanonly
local avghaty1_C_s0=r(mean)
sum haty1_C_s0 if feedback==1 & treatment==2 & nobs ==4 , meanonly
local avghaty1_MRC_s0=r(mean)
sum haty1_C_s1 if feedback==1 & treatment==0 & nobs ==4 , meanonly
local avghaty1_C_s1=r(mean)
sum haty1_C_s1 if feedback==1 & treatment==2 & nobs ==4 , meanonly
local avghaty1_MRC_s1=r(mean)

*Counterfactual treatment difference (per recipe)
sum haty1 if feedback==1 & treatment==0 & nobs ==4 , meanonly
local avghaty1_C=r(mean)
sum haty1 if feedback==1 & treatment==2 & nobs ==4 , meanonly
local avghaty1_MR=r(mean)
local Dhaty1=`avghaty1_MR'-`avghaty1_C'
local Dyratio= `Dhaty1' / `Dy1'
}

di "-----------------------------------------------------------------"  _newline  ///
    "Counterfactual analysis ManyReminders vs Control (feedback study)"  _newline  ///
    "-----------------------------------------------------------------"  _newline  ///
    "Observed average score per recipe for a never reminded action in level 11: Control: " `my1_C' " ManyReminders: " `my1_MR'   _newline  ///
    "Observed treatment difference: "  `Dy1'   _newline  ///
    "---------------------------------"  _newline  ///
	"Counterfactual: Control: " `avghaty1_C' " ManyReminders: " `avghaty1_MR'   _newline  ///
    "Counterfactual treatment difference: "  `Dhaty1'   _newline  ///
	"---------------------------------"  _newline  ///
    "Ratio (Counterfactual treatment difference)/(Observed treatment difference)= " `Dyratio'   _newline  ///
    "(\bar{\hat{y}}^1_{<R|X_i>}-\bar{\hat{y}^1_{<C|X_i>})/(\bar{y}^1_MR-\bar{y}^1_C)"  _newline  ///
	"---------------------------------"  _newline  ///
    "Averages for the path variables: "  _newline  ///
    "\bar{\hat{p}}^0_C: " `avghatp0_C' " \bar{\hat{p}}^0_MR: " `avghatp0_MR'   _newline  ///
    "\bar{\hat{p}}^1_{C|s_0}: " `avghatp1_C_s0' " \bar{\hat{p}}^1_{R|s_0}: " `avghatp1_MR_s0'   _newline  ///
    "\bar{\hat{y}}^1_{C|s_0}: " `avghaty1_C_s0' " \bar{\hat{y}}^1_{R<C|X_i>|s_0}: " `avghaty1_MRC_s0'   _newline  ///
    "\bar{\hat{y}}^1_{C|s_1}: " `avghaty1_C_s1' " \bar{\hat{y}}^1_{R<C|X_i>|s_1}: " `avghaty1_MRC_s1'
restore

*No feedback study: 
preserve
cd "$temp"
use intertempdata, clear
cd "$output"

quietly{ 
bysort pid: egen temp_C=mean(ifsa_never_remind) if level ==11 & feedback==0 & treatment==0 & tagrecipe ==1 
gen temp1=-1
replace temp1=temp_C if temp_C!=.
bysort pid: egen y1_C=max(temp1)
bysort pid: egen temp_MR=mean(ifsa_never_remind) if level ==11 & feedback==0 & treatment==2 & tagrecipe ==1 
gen temp2=-1
replace temp2=temp_MR if temp_MR!=.
bysort pid: egen y1_MR=max(temp2)

keep nrem8 nrem11 nIFSA11 pretreatscore actioncategoryMR feedback treatment nobs treat_MR pid pid y1_C y1_MR 
 
drop if actioncategoryMR==1
drop if nobs>13
drop if treatment==1	

capture drop hatp*
capture drop yhat*

*Estimate the relevant conditional distributions for the stacked data on never reminded actions 

*1) Estimate the treatment effect on the probability of not performing a never reminded action in all four recipes of level 8
logit nrem8 pretreatscore treat_MR if actioncategoryMR==0 & feedback==0 & treatment!=1, vce(cluster pid)	
* Retrieve coefficients
matrix bp1_T = e(b)
scalar bp1_T_pretreatscore 		   = bp1_T[1, 1]
scalar bp1_T_treat_MR 			   = bp1_T[1, 2]
scalar bp1_T_const 			       = bp1_T[1, 3]
*** Conditional distribution <T_i|X_i> (conditional on actual treatment) estimated by logistic regression
* Calculate linear predictor (log-odds)
capture drop lin_pred
gen lin_pred=bp1_T_const+  bp1_T_pretreatscore * pretreatscore + bp1_T_treat_MR*treat_MR if feedback==0 & treatment!=1 & actioncategoryMR==0
* Calculate predicted probabilities using logistic function 
gen hatp0_T = exp(lin_pred) / (1 + exp(lin_pred))  if feedback==0 & treatment!=1 & actioncategoryMR==0

*2) Conditional on not having performed a never reminded action in any of the four recipes of level 8, estimate the probability of not performing the action in all four recipes of level 11
logit nrem11 pretreatscore treat_MR if actioncategoryMR==0 & feedback==0 & treatment!=1 & nrem8==1, vce(cluster pid)	
* Retrieve coefficients
matrix bp1_T_s0CF1 = e(b)
scalar bp1_T_s0CF1_pretreatscore 		   = bp1_T_s0CF1[1, 1]
scalar bp1_T_s0CF1_treat_MR 			   = bp1_T_s0CF1[1, 2]
scalar bp1_T_s0CF1_const 			       = bp1_T_s0CF1[1, 3]
*** Conditional distribution <T_i|X_i> (conditional on actual treatment) estimated by logistic regression
* Calculate linear predictor (log-odds)
capture drop lin_pred
gen lin_pred=bp1_T_s0CF1_const+  bp1_T_s0CF1_pretreatscore * pretreatscore + bp1_T_s0CF1_treat_MR*treat_MR if feedback==0 & treatment!=1 & actioncategoryMR==0
* Calculate predicted probabilities using logistic function 
gen hatp1_T_s0 = exp(lin_pred) / (1 + exp(lin_pred))  if feedback==0 & treatment!=1 & actioncategoryMR==0

*3) Conditional on not having performed a never reminded action in any of the four recipes of level 8, but performing the action in at least one of the four recipes of level 11, estimate the IFSA score for never reminded actions in level 11 
reg nIFSA11 pretreatscore treat_MR if nrem8==1 & nrem11==0 & feedback==0 & treatment!=1 & actioncategoryMR==0, vce(cluster pid)	
*** Counterfactual conditional distribution <C|X_i> (conditional on Control treatment) estimated by OLS regression
* Retrieve coefficients
matrix by1_C_s0 = e(b)
scalar by1_C_s0_pretreatscore = by1_C_s0[1, 1]
scalar by1_C_s0_treat_MR = by1_C_s0[1, 2]
scalar by1_C_s0_const = by1_C_s0[1, 3]
* Calculate predicted the average for one never reminded action over four recipes in level 11 (conditional on treatment Control)
gen haty1_C_s0=by1_C_s0_const+  by1_C_s0_pretreatscore * pretreatscore if feedback==0 & treatment!=1 & actioncategoryMR==0
* Transform into total score for the ten never reminded actions per recipe 
replace haty1_C_s0=haty1_C_s0*7/4 if feedback==0 & treatment!=1 & actioncategoryMR==0

*4) Conditional on having performed a never reminded action in at least one of the four recipes of level 8, estimate the IFSA score for the action in level 11 
reg nIFSA11 pretreatscore treat_MR if nrem8==0 & feedback==0 & treatment!=1 & actioncategoryMR==0, vce(cluster pid)	
*** Counterfactual conditional distribution <C|X_i> (conditional on Control treatment) estimated by OLS regression
* Retrieve coefficients
matrix by1_C_s1 = e(b)
scalar by1_C_s1_pretreatscore = by1_C_s1[1, 1]
scalar by1_C_s1_treat_MR = by1_C_s0[1, 2]
scalar by1_C_s1_const = by1_C_s1[1, 3]
* Calculate predicted the average for one never reminded action over four recipes in level 11 (conditional on treatment Control)
gen haty1_C_s1=by1_C_s1_const+  by1_C_s1_pretreatscore * pretreatscore if feedback==0 & treatment!=1 & actioncategoryMR==0
*Transform into total score for the ten never reminded actions per recipe 
 replace haty1_C_s1=haty1_C_s1*7/4

********
*Predicted IFSA score per recipe in level 11 for the never reminded actions: 

*Conditional distributions used to estimate the treatment effect on the probability of not performing an action in any of the four recipes in level 8 and, if so, the treatment effect on the probability of not performing an action in any of the four recipes in level 11. For all the other paths, the counteractual distributions conditional on treatment Control are used.
* \hat{p^0_{<T_i|X_i>}: The conditional distribution <T_i|X_i> for the probability of not having performed an action in any of the four recipes of level 8
* \hat{p^1_{<T_i|X_i>}: The conditional distribution <T_i|X_i> for the probability of not having performed an action in any of the four recipes of level 11, conditional on not having performed an action in any of the four recipes of level 8
* \hat{y^1_{<C|X_i,s_0=0>}:  The counterfactual distribution <C|X_i> for the IFSA score per recipe in level 11 for the never reminded actions, conditional on not having performed an action in any of the four recipes of level 8 but performing an action in at least one of the four recipes of level 11 and conditional on treatment Control
* \hat{y^1_{<C|X_i,s_0=1>}:  The counterfactual distribution <C|X_i> for the IFSA score per recipe in level 11 for the never reminded actions, conditional on having performed an action in at least one of the four recipes of level 8 and conditional on treatment Control
********

gen haty1=hatp0_T*(hatp1_T_s0*0+(1-hatp1_T_s0)*haty1_C_s0)+ (1-hatp0_T)*haty1_C_s1

*Actual treatement difference (in the sample drawn - relevant for bootstrap)
sum y1_C if  feedback==0 & treatment==0 & nobs==4 , meanonly
local my1_C=r(mean)
gen my1_C=`my1_C'
sum y1_MR if  feedback==0 & treatment==2 & nobs==4 , meanonly
local my1_MR=r(mean)
gen my1_MR=`my1_MR'
local Dy1=`my1_MR' - `my1_C'
gen Dy1= `Dy1'

*Results from counterfactual estimation 
sum hatp0_T if feedback==0 & treatment==0 & nobs ==4 , meanonly
local avghatp0_C=r(mean)
sum hatp0_T if feedback==0 & treatment==2 & nobs ==4 , meanonly
local avghatp0_MR=r(mean)
sum hatp1_T_s0 if feedback==0 & treatment==0 & nobs ==4 , meanonly
local avghatp1_C_s0=r(mean)
sum hatp1_T_s0 if feedback==0 & treatment==2 & nobs ==4 , meanonly
local avghatp1_MR_s0=r(mean)
sum haty1_C_s0 if feedback==0 & treatment==0 & nobs ==4 , meanonly
local avghaty1_C_s0=r(mean)
sum haty1_C_s0 if feedback==0 & treatment==2 & nobs ==4 , meanonly
local avghaty1_MRC_s0=r(mean)
sum haty1_C_s1 if feedback==0 & treatment==0 & nobs ==4 , meanonly
local avghaty1_C_s1=r(mean)
sum haty1_C_s1 if feedback==0 & treatment==2 & nobs ==4 , meanonly
local avghaty1_MRC_s1=r(mean)

*Counterfactual treatment difference (per recipe)
sum haty1 if feedback==0 & treatment==0 & nobs ==4 , meanonly
local avghaty1_C=r(mean)
sum haty1 if feedback==0 & treatment==2 & nobs ==4 , meanonly
local avghaty1_MR=r(mean)
local Dhaty1=`avghaty1_MR'-`avghaty1_C'
local Dyratio= `Dhaty1' / `Dy1'
}

di "-----------------------------------------------------------------"  _newline  ///
    "Counterfactual analysis ManyReminders vs Control (no feedback study)"  _newline  ///
    "-----------------------------------------------------------------"  _newline  ///
    "Observed average score per recipe for a never reminded action in level 11: Control: " `my1_C' " ManyReminders: " `my1_MR'   _newline  ///
    "Observed treatment difference: "  `Dy1'   _newline  ///
    "---------------------------------"  _newline  ///
	"Counterfactual: Control: " `avghaty1_C' " ManyReminders: " `avghaty1_MR'   _newline  ///
    "Counterfactual treatment difference: "  `Dhaty1'   _newline  ///
	"---------------------------------"  _newline  ///
    "Ratio (Counterfactual treatment difference)/(Observed treatment difference)= " `Dyratio'   _newline  ///
    "(\bar{\hat{y}}^1_{<R|X_i>}-\bar{\hat{y}^1_{<C|X_i>})/(\bar{y}^1_MR-\bar{y}^1_C)"  _newline  ///
	"---------------------------------"  _newline  ///
    "Averages for the path variables: "  _newline  ///
    "\bar{\hat{p}}^0_C: " `avghatp0_C' " \bar{\hat{p}}^0_MR: " `avghatp0_MR'   _newline  ///
    "\bar{\hat{p}}^1_{C|s_0}: " `avghatp1_C_s0' " \bar{\hat{p}}^1_{R|s_0}: " `avghatp1_MR_s0'   _newline  ///
    "\bar{\hat{y}}^1_{C|s_0}: " `avghaty1_C_s0' " \bar{\hat{y}}^1_{R<C|X_i>|s_0}: " `avghaty1_MRC_s0'   _newline  ///
    "\bar{\hat{y}}^1_{C|s_1}: " `avghaty1_C_s1' " \bar{\hat{y}}^1_{R<C|X_i>|s_1}: " `avghaty1_MRC_s1'
restore


********************************************************************************
***   					SI 8. Alternative mechanisms     				     ***
********************************************************************************


*** A. Alternative mechanisms for reminders to work

*** A.1. Do reminders act as a signal and induce experimenter demand?

*** In text: "Yet, the main effect of the respective proxy for attention is either non-significant or negative."
*** In text: "Second, if a lack of attention to the study instructions lead subjects to falsely attribute greater importance to the reminded actions, reminders should be less  effective for subjects who spent more time with the information material. Yet, the interaction term is non-significant or positive."
preserve
gen interaction1=treat_R*VideoDuration 
gen interaction2=treat_R*VideoClicks

drop if level!=8
drop if tagrecipe==0
drop if treatment==2

*Feedback study
reg ifsa_score pretreatscore treat_R VideoDuration interaction1 i.r $BCOV $ECOV if  feedback==1, vce(cluster pid) 
reg ifsa_score pretreatscore treat_R VideoClicks interaction2 i.r $BCOV $ECOV if   feedback==1, vce(cluster pid) 

*No feedback study	
reg ifsa_score pretreatscore treat_R VideoDuration interaction1 i.r $BCOV $ECOV if  feedback==0, vce(cluster pid) 
reg ifsa_score pretreatscore treat_R VideoClicks interaction2 i.r $BCOV $ECOV if  feedback==0, vce(cluster pid) 

restore	


*** Table S46. Hypothesis 1: Potential experimenter demand effects 
********************************************************************************

*Generate variable for compliance with reminders (also for Table S47)
quiet{
bysort pid r: gen ede=1 if  ifsa_remind==3 
replace ede=0 if ede==.
bysort pid level: gen ede_total=sum(ede)
bysort pid level: egen edemax=max(ede_total)
drop ede ede_total

*Reminder
tab edemax if level==8 & treatment==1 & taglevel==1
*ManyReminders
tab edemax if level==8 & treatment==2 & taglevel==1
*Control (baseline compliance without reminder)
tab edemax if level==8 & treatment==0 & taglevel==1

*ManyRemind
bysort pid r: gen edeMR=1 if  ifsa_many_remind==6 
replace edeMR=0 if edeMR==.
bysort pid level: gen ede_totalMR=sum(edeMR)
bysort pid level: egen edemaxMR=max(ede_totalMR)
drop edeMR ede_totalMR
}

quiet{
eststo clear

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==2
	
*The first (second) specification for each dependent variable excludes those subjects from the analysis who comply with all reminders in all 4 (more than half, i.e. >=3 of the 4) recipes.
	
	*Feedback study
	
	*All actions
	reg ifsa_score pretreatscore treat_R i.r $BCOV $ECOV if edemax<4 & feedback==1, vce(cluster pid) 
	eststo ede_4FB
	estadd local IndividualsFB `=e(N_clust)'
	estadd local Controls  "\mbox{Ext}": ede_4FB
	estadd local Exclusion  "\mbox{Comply 4}": ede_4FB
	summarize ifsa_score if treatment==0 & edemax<4 & PriorBehaviors!=.  & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	*Reminded actions
	reg ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if edemax<4 & PriorBehaviors!=.  & feedback==1, vce(cluster pid) 
	eststo edeR_4FB
	estadd local IndividualsFB=`e(N_clust)' 
	estadd local Controls  "\mbox{Ext}": edeR_4FB
	estadd local Exclusion  "\mbox{Comply 4}": edeR_4FB
	summarize ifsa_remind if treatment==0 & edemax<4 & PriorBehaviors!=.  & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	*Non-reminded actions
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if edemax<4 & PriorBehaviors!=.  & feedback==1, vce(cluster pid) 
	eststo edeNR_4FB
	estadd local IndividualsFB=`e(N_clust)' 
	estadd local Controls  "\mbox{Ext}": edeNR_4FB
	estadd local Exclusion  "\mbox{Comply 4}": edeNR_4FB
	summarize ifsa_not_remind if treatment==0 & edemax<4 & PriorBehaviors!=.  & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	reg ifsa_score pretreatscore treat_R i.r $BCOV $ECOV if edemax<3 & PriorBehaviors!=.  & feedback==1, vce(cluster pid) 
	eststo ede_3FB
	estadd local IndividualsFB=`e(N_clust)' 
	estadd local Controls  "\mbox{Ext}": ede_3FB
	estadd local Exclusion  "\mbox{Comply 4}": ede_3FB
	summarize ifsa_score if treatment==0 & edemax<3 & PriorBehaviors!=.  & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	*Reminded actions
	reg ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if edemax<3 & PriorBehaviors!=.  & feedback==1, vce(cluster pid) 
	eststo edeR_3FB
	estadd local IndividualsFB=`e(N_clust)' 
	estadd local Controls  "\mbox{Ext}": edeR_3FB
	estadd local Exclusion  "\mbox{Comply 4}": edeR_3FB
	summarize ifsa_remind if treatment==0 & edemax<3 & PriorBehaviors!=.  & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	*Non-reminded actions
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if edemax<3 & PriorBehaviors!=.  & feedback==1, vce(cluster pid) 
	eststo edeNR_3FB
	estadd local IndividualsFB=`e(N_clust)' 
	estadd local Controls  "\mbox{Ext}": edeNR_3FB
	estadd local Exclusion  "\mbox{Comply 4}": edeNR_3FB
	summarize ifsa_not_remind if treatment==0 & edemax<3 & PriorBehaviors!=.  & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	
	*No feedback study
	*All actions
	reg ifsa_score pretreatscore treat_R i.r $BCOV $ECOV if edemax<4 & PriorBehaviors!=.  & feedback==0, vce(cluster pid) 
	eststo ede_4NoFB
	estadd local IndividualsNoFB=`e(N_clust)' 
	estadd local Controls  "\mbox{Ext}": ede_4NoFB
	estadd local Exclusion  "\mbox{Comply 4}": ede_4NoFB
	summarize ifsa_score if treatment==0 & edemax<4 & PriorBehaviors!=.  & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	*Reminded actions
	reg ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if edemax<4 & PriorBehaviors!=.  & feedback==0, vce(cluster pid) 
	eststo edeR_4NoFB
	estadd local IndividualsNoFB=`e(N_clust)' 
	estadd local Controls  "\mbox{Ext}": edeR_4NoFB
	estadd local Exclusion  "\mbox{Comply 4}": edeR_4NoFB
	summarize ifsa_remind if treatment==0 & edemax<4 & PriorBehaviors!=.  & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	*Non-reminded actions
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if edemax<4 & PriorBehaviors!=.  & feedback==0, vce(cluster pid) 
	eststo edeNR_4NoFB
	estadd local IndividualsNoFB=`e(N_clust)' 
	estadd local Controls  "\mbox{Ext}": edeNR_4NoFB
	estadd local Exclusion  "\mbox{Comply 4}": edeNR_4NoFB
	summarize ifsa_not_remind if treatment==0 & edemax<4 & PriorBehaviors!=.  & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)

	reg ifsa_score pretreatscore treat_R i.r $BCOV $ECOV if edemax<3 & PriorBehaviors!=.  & feedback==0, vce(cluster pid) 
	eststo ede_3NoFB
	estadd local IndividualsNoFB=`e(N_clust)' 	
	estadd local Controls  "\mbox{Ext}": ede_3NoFB
	estadd local Exclusion  "\mbox{Comply 4}": ede_3NoFB
	summarize ifsa_score if treatment==0 & edemax<3 & PriorBehaviors!=.  & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	*Reminded actions
	reg ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if edemax<3 & PriorBehaviors!=.  & feedback==0, vce(cluster pid) 
	eststo edeR_3NoFB
	estadd local IndividualsNoFB=`e(N_clust)' 	
	estadd local Controls  "\mbox{Ext}": edeR_3NoFB
	estadd local Exclusion  "\mbox{Comply 4}": edeR_3NoFB
	summarize ifsa_remind if treatment==0 & edemax<3 & PriorBehaviors!=.  & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	*Non-reminded actions
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if edemax<3 & PriorBehaviors!=.  & feedback==0, vce(cluster pid) 
	eststo edeNR_3NoFB
	estadd local IndividualsNoFB=`e(N_clust)' 	
	estadd local Controls  "\mbox{Ext}": edeNR_3NoFB
	estadd local Exclusion  "\mbox{Comply 4}": edeNR_3NoFB
	summarize ifsa_not_remind if treatment==0 & edemax<3 & PriorBehaviors!=.  & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	restore


}
*Panel A: Feedback study	
esttab ede_4FB ede_3FB edeR_4FB edeR_3FB edeNR_4FB edeNR_3FB  using TableS46PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 1 (feedback study, level 8) \label{tab:expdemH1}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("The first (second) specification for each dependent variable excludes those subjects from the analysis who comply with all reminders in all (more than half) of the recipes." "Dependent variable: (1)-(3) overall IFSA score in level 8; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab ede_4NoFB ede_3NoFB edeR_4NoFB edeR_3NoFB edeNR_4NoFB edeNR_3NoFB  using TableS46PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 1 (no feedback study, level 8) \label{tab:expdemH1}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("The first (second) specification for each dependent variable excludes those subjects from the analysis who comply with all reminders in all (more than half) of the recipes." "Dependent variable: (1)-(3) overall IFSA score in level 8; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	


*** Table S47. Secondary Hypothesis 1: Potential experimenter demand effects 
********************************************************************************
quiet{
eststo clear

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==1
	
*The first (second) specification for each dependent variable excludes those subjects from the analysis who comply with all reminders in all 4 (more than half, i.e. >=3 of the 4) recipes.
	
	*Feedback study
	
	*All actions
	reg ifsa_score pretreatscore treat_MR i.r $BCOV $ECOV if edemaxMR<4 & PriorBehaviors!=.  & feedback==1, vce(cluster pid) 
	eststo ede_4FB
	estadd local IndividualsFB `=e(N_clust)'
	estadd local Controls  "\mbox{Ext}": ede_4FB
	estadd local Exclusion  "\mbox{Comply 4}": ede_4FB
	summarize ifsa_score if treatment==0 & edemaxMR<4 & PriorBehaviors!=.  & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	*Reminded actions in ManyReminders
	reg ifsa_many_remind pretreatscore treat_MR i.r $BCOV $ECOV if edemaxMR<4 & PriorBehaviors!=.  & feedback==1, vce(cluster pid) 
	eststo edeR_4FB
	estadd local IndividualsFB=`e(N_clust)' 
	estadd local Controls  "\mbox{Ext}": edeR_4FB
	estadd local Exclusion  "\mbox{Comply 4}": edeR_4FB
	summarize ifsa_many_remind if treatment==0 & edemaxMR<4 & PriorBehaviors!=.  & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	*Never-reminded actions
	reg ifsa_never_remind pretreatscore treat_MR i.r $BCOV $ECOV if edemaxMR<4 & PriorBehaviors!=.  & feedback==1, vce(cluster pid) 
	eststo edeNR_4FB
	estadd local IndividualsFB=`e(N_clust)' 
	estadd local Controls  "\mbox{Ext}": edeNR_4FB
	estadd local Exclusion  "\mbox{Comply 4}": edeNR_4FB
	summarize ifsa_never_remind if treatment==0 & edemaxMR<4 & PriorBehaviors!=.  & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	reg ifsa_score pretreatscore treat_MR i.r $BCOV $ECOV if edemaxMR<3 & PriorBehaviors!=.  & feedback==1, vce(cluster pid) 
	eststo ede_3FB
	estadd local IndividualsFB=`e(N_clust)' 
	estadd local Controls  "\mbox{Ext}": ede_3FB
	estadd local Exclusion  "\mbox{Comply 4}": ede_3FB
	summarize ifsa_score if treatment==0 & edemaxMR<3 & PriorBehaviors!=.  & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	*Reminded actions in ManyReminders
	reg ifsa_many_remind pretreatscore treat_MR i.r $BCOV $ECOV if edemaxMR<3 & PriorBehaviors!=.  & feedback==1, vce(cluster pid) 
	eststo edeR_3FB
	estadd local IndividualsFB=`e(N_clust)' 
	estadd local Controls  "\mbox{Ext}": edeR_3FB
	estadd local Exclusion  "\mbox{Comply 4}": edeR_3FB
	summarize ifsa_many_remind if treatment==0 & edemaxMR<3 & PriorBehaviors!=.  & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	*Never-reminded actions
	reg ifsa_never_remind pretreatscore treat_MR i.r $BCOV $ECOV if edemaxMR<3 & PriorBehaviors!=.  & feedback==1, vce(cluster pid) 
	eststo edeNR_3FB
	estadd local IndividualsFB=`e(N_clust)' 
	estadd local Controls  "\mbox{Ext}": edeNR_3FB
	estadd local Exclusion  "\mbox{Comply 4}": edeNR_3FB
	summarize ifsa_never_remind if treatment==0 & edemaxMR<3 & PriorBehaviors!=.  & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	
	*No feedback study
	*All actions
	reg ifsa_score pretreatscore treat_MR i.r $BCOV $ECOV if edemaxMR<4 & PriorBehaviors!=.  & feedback==0, vce(cluster pid) 
	eststo ede_4NoFB
	estadd local IndividualsNoFB=`e(N_clust)' 
	estadd local Controls  "\mbox{Ext}": ede_4NoFB
	estadd local Exclusion  "\mbox{Comply 4}": ede_4NoFB
	summarize ifsa_score if treatment==0 & edemaxMR<4 & PriorBehaviors!=.  & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	*Reminded actions in ManyReminders
	reg ifsa_many_remind pretreatscore treat_MR i.r $BCOV $ECOV if edemaxMR<4 & PriorBehaviors!=.  & feedback==0, vce(cluster pid) 
	eststo edeR_4NoFB
	estadd local IndividualsNoFB=`e(N_clust)' 
	estadd local Controls  "\mbox{Ext}": edeR_4NoFB
	estadd local Exclusion  "\mbox{Comply 4}": edeR_4NoFB
	summarize ifsa_many_remind if treatment==0 & edemaxMR<4 & PriorBehaviors!=.  & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	*Never-reminded actions
	reg ifsa_never_remind pretreatscore treat_MR i.r $BCOV $ECOV if edemaxMR<4 & PriorBehaviors!=.  & feedback==0, vce(cluster pid) 
	eststo edeNR_4NoFB
	estadd local IndividualsNoFB=`e(N_clust)' 
	estadd local Controls  "\mbox{Ext}": edeNR_4NoFB
	estadd local Exclusion  "\mbox{Comply 4}": edeNR_4NoFB
	summarize ifsa_never_remind if treatment==0 & edemaxMR<4 & PriorBehaviors!=.  & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)

	reg ifsa_score pretreatscore treat_MR i.r $BCOV $ECOV if edemaxMR<3 & PriorBehaviors!=.  & feedback==0, vce(cluster pid) 
	eststo ede_3NoFB
	estadd local IndividualsNoFB=`e(N_clust)' 	
	estadd local Controls  "\mbox{Ext}": ede_3NoFB
	estadd local Exclusion  "\mbox{Comply 4}": ede_3NoFB
	summarize ifsa_score if treatment==0 & edemaxMR<3 & PriorBehaviors!=.  & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	*Reminded actions in ManyReminders
	reg ifsa_many_remind pretreatscore treat_MR i.r $BCOV $ECOV if edemaxMR<3 & PriorBehaviors!=.  & feedback==0, vce(cluster pid) 
	eststo edeR_3NoFB
	estadd local IndividualsNoFB=`e(N_clust)' 	
	estadd local Controls  "\mbox{Ext}": edeR_3NoFB
	estadd local Exclusion  "\mbox{Comply 4}": edeR_3NoFB
	summarize ifsa_many_remind if treatment==0 & edemaxMR<3 & PriorBehaviors!=.  & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	*Never-reminded actions
	reg ifsa_never_remind pretreatscore treat_MR i.r $BCOV $ECOV if edemaxMR<3 & PriorBehaviors!=.  & feedback==0, vce(cluster pid) 
	eststo edeNR_3NoFB
	estadd local IndividualsNoFB=`e(N_clust)' 	
	estadd local Controls  "\mbox{Ext}": edeNR_3NoFB
	estadd local Exclusion  "\mbox{Comply 4}": edeNR_3NoFB
	summarize ifsa_never_remind if treatment==0 & edemaxMR<3 & PriorBehaviors!=.  & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	restore


}
*Panel A: Feedback study	
esttab ede_4FB ede_3FB edeR_4FB edeR_3FB edeNR_4FB edeNR_3FB  using TableS47PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 1 (feedback study, level 8) \label{tab:expdemSH1}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("The first (second) specification for each dependent variable excludes those subjects from the analysis who comply with all reminders in all (more than half) of the recipes." "Dependent variable: (1)-(3) overall IFSA score in level 8; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Control) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab ede_4NoFB ede_3NoFB edeR_4NoFB edeR_3NoFB edeNR_4NoFB edeNR_3NoFB  using TableS47PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 1 (no feedback study, level 8) \label{tab:expdemSH1}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("The first (second) specification for each dependent variable excludes those subjects from the analysis who comply with all reminders in all (more than half) of the recipes." "Dependent variable: (1)-(3) overall IFSA score in level 8; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Control) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	


*** A.2. Do reminders impact knowledge and ability?

*** In text (footnote): "When incentives are introduced in module 3 there is an upward jump in performance in all conditions"
*Pooled data: module 2 vs.3 (effect of incentives) 
ttest Module2Score=Module3Score4r if taguser==1 & treatment==0, unpaired
ttest Module2Score=Module3Score4r if taguser==1 & treatment==1, unpaired
ttest Module2Score=Module3Score4r if taguser==1 & treatment==2, unpaired


*** In text (footnote): "Specifically, we perform the same regressions as for Hypothesis 1 but include either the variable overconfidence, a dummy for people who are more knowledgeable than the median, or a dummy for people who play more frequently computer games than the median, and the interaction between the respective variable and the treatment dummy for Reminder vs Control. In all regressions, the interaction terms are non-significant."

*Define Overconfidence (need level 1)
preserve
gen hatifsa1=ifsa_score if module==1
bysort pid: egen ifsa1=mean(hatifsa1) if tagrecipe==1
xtile hatquintile=ifsa1, n(5)
gen hatOC=hatquintile-GamePerformHygienic
bysort pid: egen OC=max(hatOC)
bysort pid: egen quintile=max(hatquintile)
drop hatOC hatquintile
gen interaction=OC*treat_R

*Generate median split for variables
sum FreqComputerGames, d
gen Gamer=0
replace Gamer=1 if FreqComputerGames>=r(p50)  

sum PriorKnowledge, d
gen Knowledgeable=0
replace Knowledgeable=1 if PriorKnowledge>=r(p50)  

*Knowledge
gen interaction2=Knowledgeable*treat_R

*Gamer
gen interaction3=Gamer*treat_R


*Pooled data
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==2

	reg ifsa_score pretreatscore treat_R OC interaction i.r $BCOV $ECOV, vce(cluster pid)
	eststo hypoverconf
	estadd local Controls  "\mbox{Ext}"
	reg ifsa_score pretreatscore treat_R Knowledgeable interaction2 i.r $BCOV $ECOV, vce(cluster pid)
	eststo hypknowledge
	estadd local Controls  "\mbox{Ext}"
	reg ifsa_score pretreatscore treat_R Gamer interaction3 i.r $BCOV $ECOV, vce(cluster pid)
	eststo hypgamer
	estadd local Controls  "\mbox{Ext}"
	drop interaction*
	restore

	

*** B. Why do spillovers arise?	


*** B.1. The effects of relative incentives, visual cues, and complexity

*** Incentivized actions.



*** Table S16. Single Actions (pooled data)
********************************************************************************
global singleactions "handsbeginning handsafterveg handsaftermeat rinseveg toolsafterveg toolsaftermeat worktopafterveg worktopaftermeat checktemperature bread removecat safe withintime"

*Cleaning tools: both knife and cutting board (also for Table S16)
gen toolsafterveg= knifeafterveg+boardafterveg
gen toolsaftermeat= knifeaftermeat+boardaftermeat
lab var toolsafterveg 		"Cleaning tools after handling vegetable"
lab var toolsaftermeat 		"Cleaning tools after handling meat"


quiet{
eststo clear

*Reminder vs Control
*******************************************************		
	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==2
	
local actioncount=1

foreach y of global singleactions {
				
	/*	Only report full specification
		reg `y' pretreatscore treat_R i.r, vce(cluster pid)
		eststo sactionreg`actioncount'a
		estadd local Controls  "\mbox{No}"		
		estadd local Individuals `=e(N_clust) '
		summarize `y' if treatment==0 
		estadd scalar MeanDepVar =r(mean)
		estadd scalar SDDepVar =r(sd)
		reg `y' pretreatscore treat_R i.r $BCOV, vce(cluster pid)
		eststo sactionreg`actioncount'b
		estadd local Controls  "\mbox{Basic}"
		estadd local Individuals `=e(N_clust) '
		summarize `y' if treatment==0 & PriorBehaviors!=.
		estadd scalar MeanDepVar =r(mean)
		estadd scalar SDDepVar =r(sd) */
		if "`y'"=="removecat"{
		reg `y' pretreatscore treat_R i.r $BCOV $ECOV if Cat==1, vce(cluster pid)
		eststo sactionreg`actioncount'c
		estadd local Controls  "\mbox{Ext}"
		estadd local Individuals `=e(N_clust) '
		summarize `y' if treatment==0 & PriorBehaviors!=.
		estadd scalar MeanDepVar =r(mean)
		estadd scalar SDDepVar =r(sd)

		}
		if "`y'"=="bread"{
		reg `y' pretreatscore treat_R i.r $BCOV $ECOV if Breaddrops==1, vce(cluster pid)
		eststo sactionreg`actioncount'c
		estadd local Controls  "\mbox{Ext}"
		estadd local Individuals `=e(N_clust) '
		summarize `y' if treatment==0 & PriorBehaviors!=.
		estadd scalar MeanDepVar =r(mean)
		estadd scalar SDDepVar =r(sd)

		}
		if ("`y'"!="removecat" & "`y'"!="bread") {
		reg `y' pretreatscore treat_R i.r $BCOV $ECOV, vce(cluster pid)
		eststo sactionreg`actioncount'c
		estadd local Controls  "\mbox{Ext}"
		estadd local Individuals `=e(N_clust) '
		summarize `y' if treatment==0 & PriorBehaviors!=.
		estadd scalar MeanDepVar =r(mean)
		estadd scalar SDDepVar =r(sd)


		}
		local actioncount=`actioncount'+1

		}

	restore
	
	
*ManyReminders vs Control
*******************************************************	
	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==1
	
local actioncount=1

foreach y of global singleactions {
				
	/*	Only report full specification
		reg `y' pretreatscore treat_MR i.r, vce(cluster pid)
		eststo sactionregMR`actioncount'a
		estadd local ControlsMR  "\mbox{No}"		
		estadd local IndividualsMR `=e(N_clust) '
		summarize `y' if treatment==0 
		estadd scalar MeanDepVarMR =r(mean)
		estadd scalar SDDepVarMR =r(sd)
		reg `y' pretreatscore treat_MR i.r $BCOV, vce(cluster pid)
		eststo sactionregMR`actioncount'b
		estadd local ControlsMR  "\mbox{Basic}"
		estadd local IndividualsMR `=e(N_clust) '
		summarize `y' if treatment==0 & PriorBehaviors!=.
		estadd scalar MeanDepVarMR =r(mean)
		estadd scalar SDDepVarMR =r(sd) */

		
		
		if "`y'"=="removecat"{
		reg `y' pretreatscore treat_MR i.r $BCOV $ECOV if Cat==1, vce(cluster pid)
		eststo sactionregMR`actioncount'c
		estadd local ControlsMR  "\mbox{Ext}"
		estadd local IndividualsMR `=e(N_clust) '
		summarize `y' if treatment==0 & PriorBehaviors!=.
		estadd scalar MeanDepVarMR =r(mean)
		estadd scalar SDDepVarMR =r(sd)

		}
		if "`y'"=="bread"{
		reg `y' pretreatscore treat_MR i.r $BCOV $ECOV if Breaddrops==1, vce(cluster pid)
		eststo sactionregMR`actioncount'c
		estadd local ControlsMR  "\mbox{Ext}"
		estadd local IndividualsMR `=e(N_clust) '
		summarize `y' if treatment==0 & PriorBehaviors!=.
		estadd scalar MeanDepVarMR =r(mean)
		estadd scalar SDDepVarMR =r(sd)
		}
		if ("`y'"!="removecat" & "`y'"!="bread") {
		reg `y' pretreatscore treat_MR i.r $BCOV $ECOV, vce(cluster pid)
		eststo sactionregMR`actioncount'c
		estadd local ControlsMR  "\mbox{Ext}"
		estadd local IndividualsMR `=e(N_clust) '
		summarize `y' if treatment==0 & PriorBehaviors!=.
		estadd scalar MeanDepVarMR =r(mean)
		estadd scalar SDDepVarMR =r(sd)

		}
		
		local actioncount=`actioncount'+1
		}

	restore
	
	
*ManyReminders vs Reminder
*******************************************************	
	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==0
	
local actioncount=1

foreach y of global singleactions {
				
	/*	Only report full specification
		reg `y' pretreatscore treat_MRR i.r, vce(cluster pid)
		eststo sactionregMRR`actioncount'a
		estadd local ControlsMRR  "\mbox{No}"		
		estadd local IndividualsMRR `=e(N_clust) '
		summarize `y' if treatment==0 
		estadd scalar MeanDepVarMRR =r(mean)
		estadd scalar SDDepVarMRR =r(sd)
		reg `y' pretreatscore treat_MRR i.r $BCOV, vce(cluster pid)
		eststo sactionregMRR`actioncount'b
		estadd local ControlsMRR  "\mbox{Basic}"
		estadd local IndividualsMRR `=e(N_clust) '
		summarize `y' if treatment==0 & PriorBehaviors!=.
		estadd scalar MeanDepVarMRR =r(mean)
		estadd scalar SDDepVarMRR =r(sd) */
		if "`y'"=="removecat"{
		reg `y' pretreatscore treat_MRR i.r $BCOV $ECOV if Cat==1, vce(cluster pid)
		eststo sactionregMRR`actioncount'c
		estadd local ControlsMRR  "\mbox{Ext}"
		estadd local IndividualsMRR `=e(N_clust) '
		summarize `y' if treatment==1 & PriorBehaviors!=.
		estadd scalar MeanDepVarMRR =r(mean)
		estadd scalar SDDepVarMRR =r(sd)
		}
		if "`y'"=="bread"{
		reg `y' pretreatscore treat_MRR i.r $BCOV $ECOV if Breaddrops==1, vce(cluster pid)
		eststo sactionregMRR`actioncount'c
		estadd local ControlsMRR  "\mbox{Ext}"
		estadd local IndividualsMRR `=e(N_clust) '
		summarize `y' if treatment==1 & PriorBehaviors!=.
		estadd scalar MeanDepVarMRR =r(mean)
		estadd scalar SDDepVarMRR =r(sd)
		}
		if ("`y'"!="removecat" & "`y'"!="bread") {
		reg `y' pretreatscore treat_MRR i.r $BCOV $ECOV, vce(cluster pid)
		eststo sactionregMRR`actioncount'c
		estadd local ControlsMRR  "\mbox{Ext}"
		estadd local IndividualsMRR `=e(N_clust) '
		summarize `y' if treatment==1 & PriorBehaviors!=.
		estadd scalar MeanDepVarMRR =r(mean)
		estadd scalar SDDepVarMRR =r(sd)
		}

		local actioncount=`actioncount'+1
		}

	restore	
}	
	
*Panel A: Reminder vs Control	
esttab sactionreg1c sactionreg2c sactionreg3c sactionreg4c sactionreg5c sactionreg6c sactionreg7c sactionreg8c sactionreg9c sactionreg10c sactionreg11c sactionreg12c sactionreg13c using TableS16PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nonumbers ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N Individuals r2_a  Controls MeanDepVar SDDepVar, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
legend label varlabels(_cons Constant) ///
title("Single Actions: {\em Reminder vs Control} \label{tab:SH1single}") ///
mgroups("Wash Hands" "Rinse" "Clean Tools After" "Clean Surface After" "Check" "Pick-up" "Remove" "Safe" "Keep", pattern(1 0 0  1  1 0  1 0 1 1  1 1 1) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: Single action as stated at the table top in level 8." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to all controls, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: ManyReminders vs Control
esttab sactionregMR1c sactionregMR2c sactionregMR3c sactionregMR4c sactionregMR5c sactionregMR6c sactionregMR7c sactionregMR8c sactionregMR9c sactionregMR10c sactionregMR11c sactionregMR12c sactionregMR13c using TableS16PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nonumbers ///
keep (treat_MR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsMR r2_a  ControlsMR MeanDepVarMR SDDepVarMR, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
legend label varlabels(_cons Constant) ///
title("Single Actions: {\em ManyReminders vs Control} \label{tab:SH1MRsingle}") ///
mgroups("Wash Hands" "Rinse" "Clean Tools After" "Clean Surface After" "Check" "Pick-up" "Remove" "Safe" "Keep", pattern(1 0 0  1  1 0  1 0 1 1  1 1 1) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: Single action as stated at the table top in level 8." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Control) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Control}." "Specifications include, next to all controls, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	

*** Table S17. Single Actions (pooled data)
********************************************************************************
*ManyReminders vs Reminder
esttab sactionregMRR1c sactionregMRR2c sactionregMRR3c sactionregMRR4c sactionregMRR5c sactionregMRR6c sactionregMRR7c sactionregMRR8c sactionregMRR9c sactionregMRR10c sactionregMRR11c sactionregMRR12c sactionregMRR13c using TableS17.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nonumbers ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsMRR r2_a  ControlsMRR MeanDepVarMRR SDDepVarMRR, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
legend label varlabels(_cons Constant) ///
title("Single Actions: {\em ManyReminders vs Reminder} \label{tab:SH1MRRsingle}") ///
mgroups("Wash Hands" "Rinse" "Clean Tools After" "Clean Surface After" "Check" "Pick-up" "Remove" "Safe" "Keep", pattern(1 0 0  1  1 0  1 0 1 1  1 1 1) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: Single action as stated at the table top in level 8." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to all controls, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	
	
	
*** Table S18. Single Actions (after withdrawal of reminders)
********************************************************************************
quiet{
eststo clear

*Feedback study	

*Reminder vs Control
*******************************************************		
	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==2
	
local actioncount=1

foreach y of global singleactions {
				
	/*	Only report full specification */
		if "`y'"=="removecat"{
		reg `y' pretreatscore treat_R i.r $BCOV $ECOV if Cat==1 & feedback==1, vce(cluster pid)
		eststo sactionreg`actioncount'cFB
		estadd local ControlsFB  "\mbox{Ext}"
		estadd local IndividualsFB `=e(N_clust) '
		summarize `y' if treatment==0 & PriorBehaviors!=.& feedback==1
		estadd scalar MeanDepVarFB =r(mean)
		estadd scalar SDDepVarFB =r(sd)

		}
		if "`y'"=="bread"{
		reg `y' pretreatscore treat_R i.r $BCOV $ECOV if Breaddrops==1 & feedback==1, vce(cluster pid)
		eststo sactionreg`actioncount'cFB
		estadd local ControlsFB  "\mbox{Ext}"
		estadd local IndividualsFB `=e(N_clust) '
		summarize `y' if treatment==0 & PriorBehaviors!=.& feedback==1
		estadd scalar MeanDepVarFB =r(mean)
		estadd scalar SDDepVarFB =r(sd)

		}
		if ("`y'"!="removecat" & "`y'"!="bread") {
		reg `y' pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid)
		eststo sactionreg`actioncount'cFB
		estadd local ControlsFB  "\mbox{Ext}"
		estadd local IndividualsFB `=e(N_clust) '
		summarize `y' if treatment==0 & PriorBehaviors!=.& feedback==1
		estadd scalar MeanDepVarFB =r(mean)
		estadd scalar SDDepVarFB =r(sd)


		}
		local actioncount=`actioncount'+1

		}

	restore
	
	
*ManyReminders vs Control
*******************************************************	
	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==1
	
local actioncount=1

foreach y of global singleactions {
				
	/*	Only report full specification */

		
		
		if "`y'"=="removecat"{
		reg `y' pretreatscore treat_MR i.r $BCOV $ECOV if Cat==1& feedback==1, vce(cluster pid)
		eststo sactionregMR`actioncount'cFB
		estadd local ControlsMRFB  "\mbox{Ext}"
		estadd local IndividualsMRFB `=e(N_clust) '
		summarize `y' if treatment==0 & PriorBehaviors!=.& feedback==1
		estadd scalar MeanDepVarMRFB =r(mean)
		estadd scalar SDDepVarMRFB =r(sd)

		}
		if "`y'"=="bread"{
		reg `y' pretreatscore treat_MR i.r $BCOV $ECOV if Breaddrops==1& feedback==1, vce(cluster pid)
		eststo sactionregMR`actioncount'cFB
		estadd local ControlsMRFB  "\mbox{Ext}"
		estadd local IndividualsMRFB `=e(N_clust) '
		summarize `y' if treatment==0 & PriorBehaviors!=.& feedback==1
		estadd scalar MeanDepVarMRFB =r(mean)
		estadd scalar SDDepVarMRFB =r(sd)
		}
		if ("`y'"!="removecat" & "`y'"!="bread") {
		reg `y' pretreatscore treat_MR i.r $BCOV $ECOV if feedback==1, vce(cluster pid)
		eststo sactionregMR`actioncount'cFB
		estadd local ControlsMRFB  "\mbox{Ext}"
		estadd local IndividualsMRFB `=e(N_clust) '
		summarize `y' if treatment==0 & PriorBehaviors!=.& feedback==1
		estadd scalar MeanDepVarMRFB =r(mean)
		estadd scalar SDDepVarMRFB =r(sd)

		}
		
		local actioncount=`actioncount'+1
		}

	restore
	
	
*ManyReminders vs Reminder
*******************************************************	
	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==0
	
local actioncount=1

foreach y of global singleactions {
				
	/*	Only report full specification*/
		if "`y'"=="removecat"{
		reg `y' pretreatscore treat_MRR i.r $BCOV $ECOV if Cat==1& feedback==1, vce(cluster pid)
		eststo sactionregMRR`actioncount'cFB
		estadd local ControlsMRRFB  "\mbox{Ext}"
		estadd local IndividualsMRRFB FBe(N_clust) '
		summarize `y' if treatment==1 & PriorBehaviors!=.& feedback==1
		estadd scalar MeanDepVarMRRFBFB =r(mean)
		estadd scalar SDDepVarMRRFB =r(sd)
		}
		if "`y'"=="bread"{
		reg `y' pretreatscore treat_MRR i.r $BCOV $ECOV if Breaddrops==1& feedback==1, vce(cluster pid)
		eststo sactionregMRR`actioncount'cFB
		estadd local ControlsMRRFB  "\mbox{Ext}"
		estadd local IndividualsMRRFB `=e(N_clust) '
		summarize `y' if treatment==1 & PriorBehaviors!=.& feedback==1
		estadd scalar MeanDepVarMRRFB =r(mean)
		estadd scalar SDDepVarMRRFB =r(sd)
		}
		if ("`y'"!="removecat" & "`y'"!="bread") {
		reg `y' pretreatscore treat_MRR i.r $BCOV $ECOV if  feedback==1, vce(cluster pid)
		eststo sactionregMRR`actioncount'cFB
		estadd local ControlsMRRFB  "\mbox{Ext}"
		estadd local IndividualsMRRFB `=e(N_clust) '
		summarize `y' if treatment==1 & PriorBehaviors!=.& feedback==1
		estadd scalar MeanDepVarMRRFB =r(mean)
		estadd scalar SDDepVarMRRFB =r(sd)
		}

		local actioncount=`actioncount'+1
		}

	restore	
	
*No feedback study	

*Reminder vs Control
*******************************************************		
	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==2
	
local actioncount=1

foreach y of global singleactions {
				
	/*	Only report full specification */
		if "`y'"=="removecat"{
		reg `y' pretreatscore treat_R i.r $BCOV $ECOV if Cat==1 & feedback==0, vce(cluster pid)
		eststo sactionreg`actioncount'cNoFB
		estadd local ControlsNoFB  "\mbox{Ext}"
		estadd local IndividualsNoFB `=e(N_clust) '
		summarize `y' if treatment==0 & PriorBehaviors!=.& feedback==0
		estadd scalar MeanDepVarNoFB =r(mean)
		estadd scalar SDDepVarNoFB =r(sd)

		}
		if "`y'"=="bread"{
		reg `y' pretreatscore treat_R i.r $BCOV $ECOV if Breaddrops==1 & feedback==0, vce(cluster pid)
		eststo sactionreg`actioncount'cNoFB
		estadd local ControlsNoFB  "\mbox{Ext}"
		estadd local IndividualsNoFB `=e(N_clust) '
		summarize `y' if treatment==0 & PriorBehaviors!=.& feedback==0
		estadd scalar MeanDepVarNoFB =r(mean)
		estadd scalar SDDepVarNoFB =r(sd)

		}
		if ("`y'"!="removecat" & "`y'"!="bread") {
		reg `y' pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid)
		eststo sactionreg`actioncount'cNoFB
		estadd local ControlsNoFB  "\mbox{Ext}"
		estadd local IndividualsNoFB `=e(N_clust) '
		summarize `y' if treatment==0 & PriorBehaviors!=.& feedback==0
		estadd scalar MeanDepVarNoFB =r(mean)
		estadd scalar SDDepVarNoFB =r(sd)


		}
		local actioncount=`actioncount'+1

		}

	restore
	
	
*ManyReminders vs Control
*******************************************************	
	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==1
	
local actioncount=1

foreach y of global singleactions {
				
	/*	Only report full specification */

		
		
		if "`y'"=="removecat"{
		reg `y' pretreatscore treat_MR i.r $BCOV $ECOV if Cat==1& feedback==0, vce(cluster pid)
		eststo sactionregMR`actioncount'cNoFB
		estadd local ControlsMRNoFB  "\mbox{Ext}"
		estadd local IndividualsMRNoFB `=e(N_clust) '
		summarize `y' if treatment==0 & PriorBehaviors!=.& feedback==0
		estadd scalar MeanDepVarMRNoFB =r(mean)
		estadd scalar SDDepVarMRNoFB =r(sd)

		}
		if "`y'"=="bread"{
		reg `y' pretreatscore treat_MR i.r $BCOV $ECOV if Breaddrops==1& feedback==0, vce(cluster pid)
		eststo sactionregMR`actioncount'cNoFB
		estadd local ControlsMRNoFB  "\mbox{Ext}"
		estadd local IndividualsMRNoFB `=e(N_clust) '
		summarize `y' if treatment==0 & PriorBehaviors!=.& feedback==0
		estadd scalar MeanDepVarMRNoFB =r(mean)
		estadd scalar SDDepVarMRNoFB =r(sd)
		}
		if ("`y'"!="removecat" & "`y'"!="bread") {
		reg `y' pretreatscore treat_MR i.r $BCOV $ECOV if feedback==0, vce(cluster pid)
		eststo sactionregMR`actioncount'cNoFB
		estadd local ControlsMRNoFB  "\mbox{Ext}"
		estadd local IndividualsMRNoFB `=e(N_clust) '
		summarize `y' if treatment==0 & PriorBehaviors!=.& feedback==0
		estadd scalar MeanDepVarMRNoFB =r(mean)
		estadd scalar SDDepVarMRNoFB =r(sd)

		}
		
		local actioncount=`actioncount'+1
		}

	restore
	
	
*ManyReminders vs Reminder
*******************************************************	
	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==0
	
local actioncount=1

foreach y of global singleactions {
				
	/*	Only report full specification*/
		if "`y'"=="removecat"{
		reg `y' pretreatscore treat_MRR i.r $BCOV $ECOV if Cat==1& feedback==0, vce(cluster pid)
		eststo sactionregMRR`actioncount'cNoFB
		estadd local ControlsMRRNoFB  "\mbox{Ext}"
		estadd local IndividualsMRRNoFB NoFBe(N_clust) '
		summarize `y' if treatment==1 & PriorBehaviors!=.& feedback==0
		estadd scalar MeanDepVarMRRNoFBNoFB =r(mean)
		estadd scalar SDDepVarMRRNoFB =r(sd)
		}
		if "`y'"=="bread"{
		reg `y' pretreatscore treat_MRR i.r $BCOV $ECOV if Breaddrops==1& feedback==0, vce(cluster pid)
		eststo sactionregMRR`actioncount'cNoFB
		estadd local ControlsMRRNoFB  "\mbox{Ext}"
		estadd local IndividualsMRRNoFB `=e(N_clust) '
		summarize `y' if treatment==1 & PriorBehaviors!=.& feedback==0
		estadd scalar MeanDepVarMRRNoFB =r(mean)
		estadd scalar SDDepVarMRRNoFB =r(sd)
		}
		if ("`y'"!="removecat" & "`y'"!="bread") {
		reg `y' pretreatscore treat_MRR i.r $BCOV $ECOV if  feedback==0, vce(cluster pid)
		eststo sactionregMRR`actioncount'cNoFB
		estadd local ControlsMRRNoFB  "\mbox{Ext}"
		estadd local IndividualsMRRNoFB `=e(N_clust) '
		summarize `y' if treatment==1 & PriorBehaviors!=.& feedback==0
		estadd scalar MeanDepVarMRRNoFB =r(mean)
		estadd scalar SDDepVarMRRNoFB =r(sd)
		}

		local actioncount=`actioncount'+1
		}

	restore		
}	
*Reminder vs Control	
*Panel A: Feedback study
esttab sactionreg1cFB sactionreg2cFB sactionreg3cFB sactionreg4cFB sactionreg5cFB sactionreg6cFB sactionreg7cFB sactionreg8cFB sactionreg9cFB sactionreg10cFB sactionreg11cFB sactionreg12cFB sactionreg13cFB using TableS18PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nonumbers ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  ControlsFB MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
legend label varlabels(_cons Constant) ///
title("Single Actions: {\em Reminder vs Control} \label{tab:SH1single}") ///
mgroups("Wash Hands" "Rinse" "Clean Tools After" "Clean Surface After" "Check" "Pick-up" "Remove" "Safe" "Keep", pattern(1 0 0  1  1 0  1 0 1 1  1 1 1) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: Single action as stated at the table top in level 11 (feedback study)." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to all controls, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		


*Panel B: No feedback study 
esttab sactionreg1cNoFB sactionreg2cNoFB sactionreg3cNoFB sactionreg4cNoFB sactionreg5cNoFB sactionreg6cNoFB sactionreg7cNoFB sactionreg8cNoFB sactionreg9cNoFB sactionreg10cNoFB sactionreg11cNoFB sactionreg12cNoFB sactionreg13cNoFB using TableS18PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nonumbers ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  ControlsNoFB MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
legend label varlabels(_cons Constant) ///
title("Single Actions: {\em Reminder vs Control} \label{tab:SH1single}") ///
mgroups("Wash Hands" "Rinse" "Clean Tools After" "Clean Surface After" "Check" "Pick-up" "Remove" "Safe" "Keep", pattern(1 0 0  1  1 0  1 0 1 1  1 1 1) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: Single action as stated at the table top in level 11 (no feedback study)." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to all controls, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		


*** Table S19. Single Actions (after withdrawal of reminders)
********************************************************************************
*ManyReminders vs Control
*Panel A: Feedback study
esttab sactionregMR1cFB sactionregMR2cFB sactionregMR3cFB sactionregMR4cFB sactionregMR5cFB sactionregMR6cFB sactionregMR7cFB sactionregMR8cFB sactionregMR9cFB sactionregMR10cFB sactionregMR11cFB sactionregMR12cFB sactionregMR13cFB using TableS19PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nonumbers ///
keep (treat_MR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsMRFB r2_a  ControlsMRFB MeanDepVarMRFB SDDepVarMRFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
legend label varlabels(_cons Constant) ///
title("Single Actions: {\em ManyReminders vs Control} \label{tab:SH1MRsingle}") ///
mgroups("Wash Hands" "Rinse" "Clean Tools After" "Clean Surface After" "Check" "Pick-up" "Remove" "Safe" "Keep", pattern(1 0 0  1  1 0  1 0 1 1  1 1 1) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: Single action as stated at the table top in level 11 (feedback study)." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Control) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Control}." "Specifications include, next to all controls, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	

*Panel B: No feedback study 
esttab sactionregMR1cNoFB sactionregMR2cNoFB sactionregMR3cNoFB sactionregMR4cNoFB sactionregMR5cNoFB sactionregMR6cNoFB sactionregMR7cNoFB sactionregMR8cNoFB sactionregMR9cNoFB sactionregMR10cNoFB sactionregMR11cNoFB sactionregMR12cNoFB sactionregMR13cNoFB using TableS19PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nonumbers ///
keep (treat_MR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsMRNoFB r2_a  ControlsMRNoFB MeanDepVarMRNoFB SDDepVarMRNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
legend label varlabels(_cons Constant) ///
title("Single Actions: {\em ManyReminders vs Control} \label{tab:SH1MRsingle}") ///
mgroups("Wash Hands" "Rinse" "Clean Tools After" "Clean Surface After" "Check" "Pick-up" "Remove" "Safe" "Keep", pattern(1 0 0  1  1 0  1 0 1 1  1 1 1) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: Single action as stated at the table top in level 11 (no feedback study)." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Control) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Control}." "Specifications include, next to all controls, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	


*** Table S20. Single Actions (after withdrawal of reminders)
********************************************************************************
*ManyReminders vs Reminder
*Panel A: Feedback study
esttab sactionregMRR1cFB sactionregMRR2cFB sactionregMRR3cFB sactionregMRR4cFB sactionregMRR5cFB sactionregMRR6cFB sactionregMRR7cFB sactionregMRR8cFB sactionregMRR9cFB sactionregMRR10cFB sactionregMRR11cFB sactionregMRR12cFB sactionregMRR13cFB using TableS20PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nonumbers ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsMRRFB r2_a  ControlsMRRFB MeanDepVarMRRFB SDDepVarMRRFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
legend label varlabels(_cons Constant) ///
title("Single Actions: {\em ManyReminders vs Reminder} \label{tab:SH1MRRsingle}") ///
mgroups("Wash Hands" "Rinse" "Clean Tools After" "Clean Surface After" "Check" "Pick-up" "Remove" "Safe" "Keep", pattern(1 0 0  1  1 0  1 0 1 1  1 1 1) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: Single action as stated at the table top in level 11 (feedback study)." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to all controls, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )

*Panel B: No feedback study 
esttab sactionregMRR1cNoFB sactionregMRR2cNoFB sactionregMRR3cNoFB sactionregMRR4cNoFB sactionregMRR5cNoFB sactionregMRR6cNoFB sactionregMRR7cNoFB sactionregMRR8cNoFB sactionregMRR9cNoFB sactionregMRR10cNoFB sactionregMRR11cNoFB sactionregMRR12cNoFB sactionregMRR13cNoFB using TableS20PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nonumbers ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsMRRNoFB r2_a  ControlsMRRNoFB MeanDepVarMRRNoFB SDDepVarMRRNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
legend label varlabels(_cons Constant) ///
title("Single Actions: {\em ManyReminders vs Reminder} \label{tab:SH1MRRsingle}") ///
mgroups("Wash Hands" "Rinse" "Clean Tools After" "Clean Surface After" "Check" "Pick-up" "Remove" "Safe" "Keep", pattern(1 0 0  1  1 0  1 0 1 1  1 1 1) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: Single action as stated at the table top in level 11 (no feedback study)." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to all controls, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )


*** Actions associated with a strong cue.

*** In text (footnote): "We observe that subjects almost always remove the cat (see Table S15) and that there are no treatment differences in whether or not subjects remove the cat in module 3."

*Based on the output from the following regressions:
* Reminder vs Control
preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==2
	
	reg removecat pretreatscore treat_R i.r $BCOV $ECOV if Cat==1 & feedback==1, vce(cluster pid)
	reg removecat pretreatscore treat_R i.r $BCOV $ECOV if Cat==1 & feedback==0, vce(cluster pid)

	summarize removecat if treatment==0 & PriorBehaviors!=. & feedback==1
	summarize removecat if treatment==0 & PriorBehaviors!=. & feedback==0
restore
	
	
* ManyReminders vs Control
preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==1
	
	reg removecat pretreatscore treat_MR i.r $BCOV $ECOV if Cat==1 & feedback==1, vce(cluster pid)
	reg removecat pretreatscore treat_MR i.r $BCOV $ECOV if Cat==1 & feedback==0, vce(cluster pid)

	summarize removecat if treatment==0 & PriorBehaviors!=. & feedback==1
	summarize removecat if treatment==0 & PriorBehaviors!=. & feedback==0
restore


*** Added complexity.

*** Table S48. Impact of additional disturbances (Reminder vs Control)
********************************************************************************
*Generate variables (also for Table S48)
quiet{
	*IFSA score, excluding the IFSA score for picking up bread (as not relevant in every recipe)
	gen ifsa_scoreB=handsbeginning+handsafterveg+handsaftermeat+knifeafterveg+boardafterveg+knifeaftermeat+boardaftermeat + worktopafterveg  + worktopaftermeat +checktemperature+rinseveg+notrinsemeat if tagrecipe==1 
	*Never reminded actions (All except hand washing, surface cleaning, thermometer)
	gen ifsa_never_remindB=ifsa_scoreB-ifsa_many_remind
	*Generate ifsa_not_remind: ifsa_score for all except handwashing subtypes
	gen ifsa_not_remindB=ifsa_scoreB-ifsa_remind

	*Make a dummy for those recipes in module 3 where the cat appears when handling veg (cat appears when veggie picked up) and meat (cat appears when placing meat in pan; all IFSAs except not washing chicken appear after that)
	*gen cat=0 if module==3
	*replace cat=1 if (r==11|r==19)
	*capture drop interaction*
	gen interaction=Cat*treatment 

	*gen breaddrops=0 if module==3
	*replace breaddrops=1 if (r==9 |r==18)
	gen interactionbread=Breaddrops*treatment

	gen twodisturbances=0 if module==3
	replace twodisturbances=1 if Cat==1 & Breaddrops==1
	*(r==8|r==14|r==15|r==17)
	gen interactiontwo=twodisturbances*treatment

	*For ManyReminders: create dummies
	gen treatmentMRC=0 if (treatment==0|treatment==2)
	replace treatmentMRC=1  if treatment==2
	gen interactionMRC=Cat*treatmentMRC 
	gen interactionbreadMRC=Breaddrops*treatmentMRC 
	gen interactiontwoMRC=twodisturbances*treatmentMRC 
	gen treatmentMRR=0 if (treatment==1|treatment==2)
	replace treatmentMRR=1  if treatment==2
	gen interactionMRR=Cat*treatmentMRR
	gen interactionbreadMRR=Breaddrops*treatmentMRR 
	gen interactiontwoMRR=twodisturbances*treatmentMRR 

	label var interaction "Cat*Reminder"
	label var interactiontwo "(Bread \& Cat)*Reminder"
	label var interactionbread "Bread*Reminder"
	label var interactionMRC "Cat*ManyReminders"
	label var interactionMRR "Cat*ManyReminders"
	label var interactionbreadMRC "Bread*ManyReminders"
	label var interactionbreadMRR "Bread*ManyReminders"
	label var interactiontwoMRC "(Bread \& Cat)*ManyReminders"
	label var interactiontwoMRR "(Bread \& Cat)*ManyReminders"

	label var Cat "Cat in Recipe"
	label var Breaddrops "Bread drops in Recipe"
	label var twodisturbances "Bread and Cat in Recipe"
	}

quiet{
	eststo clear

		preserve
		drop if module!=3
		drop if tagrecipe==0


	*Feedback study	

	*Reminder vs Controls
	reg ifsa_scoreB pretreatscore treat_R Cat interaction Breaddrops interactionbread twodisturbances interactiontwo r $BCOV $ECOV if treatment!=2 & feedback==1, vce(cluster pid)
	eststo RCScoreDisturbFB
	estadd local IndividualsRC=`e(N_clust) '
	summarize ifsa_scoreB if treatment==0 & PriorBehaviors!=.   &  feedback==1 
	estadd scalar MeanDepVarRC =r(mean)
	estadd scalar SDDepVarRC =r(sd)



	reg ifsa_remind pretreatscore treat_R Cat interaction Breaddrops interactionbread twodisturbances interactiontwo r $BCOV $ECOV if treatment!=2 & feedback==1, vce(cluster pid)
	eststo RCRemindDisturbFB
	estadd local IndividualsRC=`e(N_clust) '
	summarize ifsa_remind if treatment==0  & PriorBehaviors!=.  & feedback==1
	estadd scalar MeanDepVarRC =r(mean)
	estadd scalar SDDepVarRC =r(sd)

	reg ifsa_not_remindB pretreatscore treat_R Cat interaction Breaddrops interactionbread twodisturbances interactiontwo r $BCOV $ECOV if treatment!=2 & feedback==1, vce(cluster pid)
	eststo RCNotRemindDisturbFB
	estadd local IndividualsRC=`e(N_clust) '
	summarize ifsa_not_remindB if treatment==0  & PriorBehaviors!=.  & feedback==1
	estadd scalar MeanDepVarRC =r(mean)
	estadd scalar SDDepVarRC =r(sd)

	*ManyReminders vs Control
	reg ifsa_scoreB pretreatscore treat_MR Cat interactionMRC Breaddrops interactionbreadMRC twodisturbances interactiontwoMRC r $BCOV $ECOV if treatment!=1 & feedback==1, vce(cluster pid)
	eststo MRCScoreDisturbFB
	estadd local IndividualsMRC=`e(N_clust) '
	summarize ifsa_scoreB if treatment==0  & PriorBehaviors!=.  & feedback==1
	estadd scalar MeanDepVarMRC =r(mean)
	estadd scalar SDDepVarMRC =r(sd)

	reg ifsa_many_remind pretreatscore treat_MR Cat interactionMRC Breaddrops interactionbreadMRC twodisturbances interactiontwoMRC r $BCOV $ECOV if treatment!=1 & feedback==1, vce(cluster pid)
	eststo MRCManyRemindDisturbFB
	estadd local IndividualsMRC=`e(N_clust) '
	summarize ifsa_many_remind if treatment==0  & PriorBehaviors!=.  & feedback==1
	estadd scalar MeanDepVarMRC =r(mean)
	estadd scalar SDDepVarMRC =r(sd)

	reg ifsa_never_remindB pretreatscore treat_MR Cat interactionMRC Breaddrops interactionbreadMRC twodisturbances interactiontwoMRC r $BCOV $ECOV if treatment!=1 & feedback==1, vce(cluster pid)
	eststo MRCNeverRemindDisturbFB
	estadd local IndividualsMRC=`e(N_clust) '
	summarize ifsa_never_remindB if treatment==0 & PriorBehaviors!=.   &  feedback==1 
	estadd scalar MeanDepVarMRC =r(mean)
	estadd scalar SDDepVarMRC =r(sd)

	*No feedback study	

	*Reminder vs Controls
	reg ifsa_scoreB pretreatscore treat_R Cat interaction Breaddrops interactionbread twodisturbances interactiontwo r $BCOV $ECOV if treatment!=2 & feedback==0, vce(cluster pid)
	eststo RCScoreDisturbNoFB
	estadd local IndividualsRC=`e(N_clust) '
	summarize ifsa_scoreB if treatment==0  & PriorBehaviors!=.  & feedback==0
	estadd scalar MeanDepVarRC =r(mean)
	estadd scalar SDDepVarRC =r(sd)


	reg ifsa_remind pretreatscore treat_R Cat interaction Breaddrops interactionbread twodisturbances interactiontwo r $BCOV $ECOV if treatment!=2 & feedback==0, vce(cluster pid)
	eststo RCRemindDisturbNoFB
	estadd local IndividualsRC=`e(N_clust) '
	summarize ifsa_remind if treatment==0  & PriorBehaviors!=.  & feedback==0
	estadd scalar MeanDepVarRC =r(mean)
	estadd scalar SDDepVarRC =r(sd)

	reg ifsa_not_remindB pretreatscore treat_R Cat interaction Breaddrops interactionbread twodisturbances interactiontwo r $BCOV $ECOV if treatment!=2 & feedback==0, vce(cluster pid)
	eststo RCNotRemindDisturbNoFB
	estadd local IndividualsRC=`e(N_clust) '
	summarize ifsa_not_remindB if treatment==0  & PriorBehaviors!=.  & feedback==0
	estadd scalar MeanDepVarRC =r(mean)
	estadd scalar SDDepVarRC =r(sd)

	*ManyReminders vs Control
	reg ifsa_scoreB pretreatscore treat_MR Cat interactionMRC Breaddrops interactionbreadMRC twodisturbances interactiontwoMRC r $BCOV $ECOV if treatment!=1 & feedback==0, vce(cluster pid)
	eststo MRCScoreDisturbNoFB
	estadd local IndividualsMRC=`e(N_clust) '
	summarize ifsa_scoreB if treatment==0  & PriorBehaviors!=.  & feedback==0
	estadd scalar MeanDepVarMRC =r(mean)
	estadd scalar SDDepVarMRC =r(sd)

	reg ifsa_many_remind pretreatscore treat_MR Cat interactionMRC Breaddrops interactionbreadMRC twodisturbances interactiontwoMRC r $BCOV $ECOV if treatment!=1 & feedback==0, vce(cluster pid)
	eststo MRCManyRemindDisturbNoFB
	estadd local IndividualsMRC=`e(N_clust) '
	summarize ifsa_many_remind if treatment==0  & PriorBehaviors!=.  & feedback==0 
	estadd scalar MeanDepVarMRC =r(mean)
	estadd scalar SDDepVarMRC =r(sd)

	reg ifsa_never_remindB pretreatscore treat_MR Cat interactionMRC Breaddrops interactionbreadMRC twodisturbances interactiontwoMRC r $BCOV $ECOV if treatment!=1 & feedback==0, vce(cluster pid)
	eststo MRCNeverRemindDisturbNoFB
	estadd local IndividualsMRC=`e(N_clust) '
	summarize ifsa_never_remindB if treatment==0  & PriorBehaviors!=.  & feedback==0
	estadd scalar MeanDepVarMRC =r(mean)
	estadd scalar SDDepVarMRC =r(sd)

	restore
	}
	esttab RCScoreDisturbFB RCRemindDisturbFB RCNotRemindDisturbFB RCScoreDisturbNoFB RCRemindDisturbNoFB RCNotRemindDisturbNoFB using TableS48.tex, replace b(2) se(2)  ///
	booktabs alignment(D{.}{.}{-1}) ///
	nonotes nomtitle collabels(none) ///
	keep (treat_R Cat interaction Breaddrops interactionbread twodisturbances interactiontwo _cons) ///
	star(* 0.10 ** 0.05 *** 0.01) /// 
	stats(N IndividualsRC r2_a  MeanDepVarRC SDDepVarRC, fmt(0 0 2 2 2 2) ///
	labels(N "Individuals" "Adj. R2" "Mean (Control)" "Std.dev.")) sfmt(2) ///
	legend label varlabels(_cons Constant) ///
	title("Impact of additional disturbances (Reminder vs Control) \label{tab:DisturbanceCat1}") ///
	addnotes("Dependent variable: (1) & (4) All IFSAs in module 3. (2) & (5) Reminded action in {\em Reminder}. (3) & (6) Non-reminded actions in {\em Reminder}." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the extended set of controls, a control for the pre-treatment score and the recipe." "Standard errors, clustered at the individual level, in parentheses." )

*** Table S49. Impact of additional disturbances (ManyReminders vs Control)
********************************************************************************
	esttab MRCScoreDisturbFB  MRCManyRemindDisturbFB   MRCNeverRemindDisturbFB MRCScoreDisturbNoFB  MRCManyRemindDisturbNoFB   MRCNeverRemindDisturbNoFB  using TableS49.tex, replace b(2) se(2)  ///
	booktabs alignment(D{.}{.}{-1}) ///
	nonotes nomtitle collabels(none) ///
	keep (treat_MR Cat interactionMRC Breaddrops interactionbreadMRC twodisturbances interactiontwoMRC _cons) ///
	star(* 0.10 ** 0.05 *** 0.01) /// 
	stats(N IndividualsMRC r2_a  MeanDepVarMRC SDDepVarMRC, fmt(0 0 2 2 2 2) ///
	labels(N "Individuals" "Adj. R2" "Mean (Control)" "Std.dev.")) sfmt(2) ///
	legend label varlabels(_cons Constant) ///
	title("Impact of feedback and reminders (ManyReminders vs Control) \label{tab:DisturbanceCat2}") ///
	addnotes("Dependent variable: (1) & (4) All IFSAs in module 3. (2) & (5) Reminded action in {\em ManyReminders}. (3) & (6) Non-reminded actions in {\em ManyReminders}." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the extended set of controls, a control for the pre-treatment score and the recipe." "Standard errors, clustered at the individual level, in parentheses." )


	
*** C. Handling vegetables vs handling meat
	
*Generate variables
quiet{
bysort pid: egen temp=total(handsafterveg) if level==8
replace temp=temp/4
bysort pid: egen handsveg8=max(temp)
drop temp
bysort pid: egen temp=total(handsafterveg) if level==11
replace temp=temp/4
bysort pid: egen handsveg11=max(temp)
drop temp

gen Diffhandsveg11_8=handsveg11-handsveg8


bysort pid: egen temp=total(handsaftermeat) if level==8
replace temp=temp/4
bysort pid: egen handsmeat8=max(temp)
drop temp
bysort pid: egen temp=total(handsaftermeat) if level==11
replace temp=temp/4
bysort pid: egen handsmeat11=max(temp)
drop temp

gen Diffhandsmeat11_8=handsmeat11-handsmeat8


bysort pid: egen temp=total(worktopafterveg) if level==8
replace temp=temp/4
bysort pid: egen wtveg8=max(temp)
drop temp
bysort pid: egen temp=total(worktopafterveg) if level==11
replace temp=temp/4
bysort pid: egen wtveg11=max(temp)
drop temp

gen Diffwtveg11_8=wtveg11-wtveg8

bysort pid: egen temp=total(worktopaftermeat) if level==8
replace temp=temp/4
bysort pid: egen wtmeat8=max(temp)
drop temp
bysort pid: egen temp=total(worktopaftermeat) if level==11
replace temp=temp/4
bysort pid: egen wtmeat11=max(temp)
drop temp

gen Diffwtmeat11_8=wtmeat11-wtmeat8
}


*We take the difference in scores as the dependent variable. Regressions are without controls as their effect cancels out in the linear models used here.

*Reminder vs Control

*Feedback study
reg Diffhandsveg11_8 treat_R if treatment!=2 & taguser==1 & feedback==1
eststo handsveg
reg Diffhandsmeat11_8 treat_R if treatment!=2 & taguser==1 & feedback==1
eststo handsmeat

suest handsveg handsmeat, robust
test [handsveg_mean]treat_R=[handsmeat_mean]treat_R

*No feedback study
reg Diffhandsveg11_8 treat_R if treatment!=2 & taguser==1 & feedback==0
eststo handsveg
reg Diffhandsmeat11_8 treat_R if treatment!=2 & taguser==1 & feedback==0
eststo handsmeat

suest handsveg handsmeat, robust
test [handsveg_mean]treat_R=[handsmeat_mean]treat_R

*ManyReminders vs Control

*Feedback study
reg Diffhandsveg11_8 treat_MR if treatment!=1 & taguser==1 & feedback==1
eststo handsveg
reg Diffhandsmeat11_8 treat_MR if treatment!=1 & taguser==1 & feedback==1
eststo handsmeat

suest handsveg handsmeat, robust
test [handsveg_mean]treat_MR=[handsmeat_mean]treat_MR


*No feedback study
reg Diffhandsveg11_8 treat_MR if treatment!=1 & taguser==1 & feedback==0
eststo handsveg
reg Diffhandsmeat11_8 treat_MR if treatment!=1 & taguser==1 & feedback==0
eststo handsmeat

suest handsveg handsmeat, robust
test [handsveg_mean]treat_MR=[handsmeat_mean]treat_MR

*Cleaning the worktop: ManyReminders vs Control

*Feedback study
reg Diffwtveg11_8 treat_MR if treatment!=1 & taguser==1 & feedback==1
eststo wtveg
reg Diffwtmeat11_8 treat_MR  if treatment!=1 & taguser==1 & feedback==1
eststo wtmeat

suest wtveg wtmeat, robust
test [wtveg_mean]treat_MR=[wtmeat_mean]treat_MR

*No feedback study
reg Diffwtveg11_8 treat_MR if treatment!=1 & taguser==1 & feedback==0
eststo wtveg
reg Diffwtmeat11_8 treat_MR  if treatment!=1 & taguser==1 & feedback==0
eststo wtmeat

suest wtveg wtmeat, robust
test [wtveg_mean]treat_MR=[wtmeat_mean]treat_MR


*** D. Food preparation order


*** In text: "The fact that 57 percent of the subjects apply the safe preparation order in module 1, where they are not yet aware that the study has to do with food safety, suggests that subjects apply their real-world habits. After seeing the food safety information video at the start of module 2, 73 percent of the subjects apply the safe preparation order. In module 3, 77 percent in {\em Control}, 75 percent in {\em Reminder}, and 74 percent in {\em ManyReminders} do so."

tabstat safe if module==1 & tagrecipe==1, stat(mean N) format(%9.2g)
tabstat safe if module==2 & tagrecipe==1, stat(mean N) format(%9.2g)
tabstat safe if module==3 & tagrecipe==1 & r<12, by(treatment) stat(mean N) format(%9.2g)


********************************************************************************
***   					SI 9. Feedback as a confound    				     ***
********************************************************************************

*** Table S30. Feedback as a confound  (feedback study) 
********************************************************************************

quiet{
eststo clear
*Regressions: without controls and pretreatment. They cancel out when taking the difference, as we are using linear models for the score.

*Feedback study		
	
*Reminder vs Control
reg DiffScoreLevel9_8 treat_R if  treatment!=2 & taguser==1 & feedback==1, robust
eststo RCScoreLevel9_8
estadd local IndividualsFB=`e(N)' 
summarize DiffScoreLevel9_8 if treatment==0 & feedback==1   & taguser==1 
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)
reg DiffScoreLevel10_9 treat_R if  treatment!=2 & taguser==1 & feedback==1, robust
eststo RCScoreLevel10_9
estadd local IndividualsFB=`e(N)' 
summarize DiffScoreLevel10_9 if treatment==0 & feedback==1   & taguser==1 
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)

reg DiffRemindLevel9_8 treat_R if  treatment!=2 & taguser==1 & feedback==1, robust
eststo RCRemindLevel9_8
estadd local IndividualsFB=`e(N)' 
summarize DiffRemindLevel9_8 if treatment==0 & feedback==1   & taguser==1 
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)
reg DiffRemindLevel10_9 treat_R if  treatment!=2 & taguser==1 & feedback==1, robust
eststo RCRemindLevel10_9
estadd local IndividualsFB=`e(N)' 
summarize DiffRemindLevel10_9 if treatment==0 & feedback==1   & taguser==1 
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)

reg DiffNotRemindLevel9_8 treat_R if  treatment!=2 & taguser==1 & feedback==1, robust
eststo RCNotRemindLevel9_8
estadd local IndividualsFB=`e(N)' 
summarize DiffNotRemindLevel9_8 if treatment==0 & feedback==1   & taguser==1 
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)
reg DiffNotRemindLevel10_9 treat_R if  treatment!=2 & taguser==1 & feedback==1, robust
eststo RCNotRemindLevel10_9
estadd local IndividualsFB=`e(N)' 
summarize DiffNotRemindLevel10_9 if treatment==0 & feedback==1   & taguser==1 
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)

*ManyReminders vs Control
reg DiffScoreLevel9_8 treat_MR if  treatment!=1 & taguser==1 & feedback==1, robust
eststo MRCScoreLevel9_8
estadd local IndividualsFB=`e(N)' 
summarize DiffScoreLevel9_8 if treatment==0 & feedback==1   & taguser==1 
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)
reg DiffScoreLevel10_9 treat_MR if  treatment!=1 & taguser==1 & feedback==1, robust
eststo MRCScoreLevel10_9
estadd local IndividualsFB=`e(N)' 
summarize DiffScoreLevel10_9 if treatment==0 & feedback==1   & taguser==1 
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)

reg DiffRemindLevel9_8 treat_MR if  treatment!=1 & taguser==1 & feedback==1, robust
eststo MRCRemindLevel9_8
estadd local IndividualsFB=`e(N)' 
summarize DiffRemindLevel9_8 if treatment==0 & feedback==1   & taguser==1 
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)
reg DiffRemindLevel10_9 treat_MR if  treatment!=1 & taguser==1 & feedback==1, robust
eststo MRCRemindLevel10_9
estadd local IndividualsFB=`e(N)' 
summarize DiffRemindLevel10_9 if treatment==0 & feedback==1   & taguser==1 
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)

reg DiffManyRemindLevel9_8 treat_MR if  treatment!=1 & taguser==1 & feedback==1, robust
eststo MRCManyRemindLevel9_8
estadd local IndividualsFB=`e(N)' 
summarize DiffManyRemindLevel9_8 if treatment==0 & feedback==1   & taguser==1 
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)
reg DiffManyRemindLevel10_9 treat_MR if  treatment!=1 & taguser==1 & feedback==1, robust
eststo MRCManyRemindLevel10_9
estadd local IndividualsFB=`e(N)' 
summarize DiffManyRemindLevel10_9 if treatment==0 & feedback==1   & taguser==1 
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)

reg DiffNeverRemindLevel9_8 treat_MR if  treatment!=1 & taguser==1 & feedback==1, robust
eststo MRCNeverRemindLevel9_8
estadd local IndividualsFB=`e(N)' 
summarize DiffNeverRemindLevel9_8 if treatment==0 & feedback==1   & taguser==1 
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)
reg DiffNeverRemindLevel10_9 treat_MR if  treatment!=1 & taguser==1 & feedback==1, robust
eststo MRCNeverRemindLevel10_9
estadd local IndividualsFB=`e(N)' 
summarize DiffNeverRemindLevel10_9 if treatment==0 & feedback==1   & taguser==1 
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)

*ManyReminders vs Reminder
reg DiffScoreLevel9_8 treat_MRR if  treatment!=0 & taguser==1 & feedback==1, robust
eststo MRRScoreLevel9_8
estadd local IndividualsFB=`e(N)' 
summarize DiffScoreLevel9_8 if treatment==1 & feedback==1   & taguser==1 
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)
reg DiffScoreLevel10_9 treat_MRR if  treatment!=0 & taguser==1 & feedback==1, robust
eststo MRRScoreLevel10_9
estadd local IndividualsFB=`e(N)' 
summarize DiffScoreLevel10_9 if treatment==1 & feedback==1   & taguser==1 
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)

reg DiffRemindLevel9_8 treat_MRR if  treatment!=0 & taguser==1 & feedback==1, robust
eststo MRRRemindLevel9_8
estadd local IndividualsFB=`e(N)' 
summarize DiffRemindLevel9_8 if treatment==1 & feedback==1   & taguser==1 
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)
reg DiffRemindLevel10_9 treat_MRR if  treatment!=0 & taguser==1 & feedback==1, robust
eststo MRRRemindLevel10_9
estadd local IndividualsFB=`e(N)' 
summarize DiffRemindLevel10_9 if treatment==1 & feedback==1   & taguser==1 
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)

reg DiffManyRemindLevel9_8 treat_MRR if  treatment!=0 & taguser==1 & feedback==1, robust
eststo MRRManyRemindLevel9_8
estadd local IndividualsFB=`e(N)' 
summarize DiffManyRemindLevel9_8 if treatment==1 & feedback==1   & taguser==1 
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)
reg DiffManyRemindLevel10_9 treat_MRR if  treatment!=0 & taguser==1 & feedback==1, robust
eststo MRRManyRemindLevel10_9
estadd local IndividualsFB=`e(N)' 
summarize DiffManyRemindLevel10_9 if treatment==1 & feedback==1   & taguser==1 
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)

reg DiffNeverRemindLevel9_8 treat_MRR if  treatment!=0 & taguser==1 & feedback==1, robust
eststo MRRNeverRemindLevel9_8
estadd local IndividualsFB=`e(N)' 
summarize DiffNeverRemindLevel9_8 if treatment==1 & feedback==1   & taguser==1 
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)
reg DiffNeverRemindLevel10_9 treat_MRR if  treatment!=0 & taguser==1 & feedback==1, robust
eststo MRRNeverRemindLevel10_9
estadd local IndividualsFB=`e(N)' 
summarize DiffNeverRemindLevel10_9 if treatment==1 & feedback==1   & taguser==1 
estadd scalar MeanDepVarFB =r(mean)
estadd scalar SDDepVarFB =r(sd)


reg DiffNeverRemindLevel10_9 pretreatscore if  treatment!=0 & taguser==1 & feedback==1, robust
eststo dummycolumn

*No feedback study (placebo)
*Reminder vs Control
reg DiffScoreLevel9_8 treat_R if  treatment!=2 & taguser==1 & feedback==0, robust
eststo NoFBRCScoreLevel9_8
estadd local IndividualsNoFB=`e(N)' 
summarize DiffScoreLevel9_8 if treatment==0 & feedback==0   & taguser==1 
estadd scalar MeanDepVarNoFB =r(mean)
estadd scalar SDDepVarNoFB =r(sd)
reg DiffScoreLevel10_9 treat_R if  treatment!=2 & taguser==1 & feedback==0, robust
eststo NoFBRCScoreLevel10_9
estadd local IndividualsNoFB=`e(N)' 
summarize DiffScoreLevel10_9 if treatment==0 & feedback==0   & taguser==1 
estadd scalar MeanDepVarNoFB =r(mean)
estadd scalar SDDepVarNoFB =r(sd)

reg DiffRemindLevel9_8 treat_R if  treatment!=2 & taguser==1 & feedback==0, robust
eststo NoFBRCRemindLevel9_8
estadd local IndividualsNoFB=`e(N)' 
summarize DiffRemindLevel9_8 if treatment==0 & feedback==0   & taguser==1 
estadd scalar MeanDepVarNoFB =r(mean)
estadd scalar SDDepVarNoFB =r(sd)
reg DiffRemindLevel10_9 treat_R if  treatment!=2 & taguser==1 & feedback==0, robust
eststo NoFBRCRemindLevel10_9
estadd local IndividualsNoFB=`e(N)' 
summarize DiffRemindLevel10_9 if treatment==0 & feedback==0   & taguser==1 
estadd scalar MeanDepVarNoFB =r(mean)
estadd scalar SDDepVarNoFB =r(sd)

reg DiffNotRemindLevel9_8 treat_R if  treatment!=2 & taguser==1 & feedback==0, robust
eststo NoFBRCNotRemindLevel9_8
estadd local IndividualsNoFB=`e(N)' 
summarize DiffNotRemindLevel9_8 if treatment==0 & feedback==0   & taguser==1 
estadd scalar MeanDepVarNoFB =r(mean)
estadd scalar SDDepVarNoFB =r(sd)
reg DiffNotRemindLevel10_9 treat_R if  treatment!=2 & taguser==1 & feedback==0, robust
eststo NoFBRCNotRemindLevel10_9
estadd local IndividualsNoFB=`e(N)' 
summarize DiffNotRemindLevel10_9 if treatment==0 & feedback==0   & taguser==1 
estadd scalar MeanDepVarNoFB =r(mean)
estadd scalar SDDepVarNoFB =r(sd)

*ManyReminders vs Control
reg DiffScoreLevel9_8 treat_MR if  treatment!=1 & taguser==1 & feedback==0, robust
eststo NoFBMRCScoreLevel9_8
estadd local IndividualsNoFB=`e(N)' 
summarize DiffScoreLevel9_8 if treatment==0 & feedback==0   & taguser==1 
estadd scalar MeanDepVarNoFB =r(mean)
estadd scalar SDDepVarNoFB =r(sd)
reg DiffScoreLevel10_9 treat_MR if  treatment!=1 & taguser==1 & feedback==0, robust
eststo NoFBMRCScoreLevel10_9
estadd local IndividualsNoFB=`e(N)' 
summarize DiffScoreLevel10_9 if treatment==0 & feedback==0   & taguser==1 
estadd scalar MeanDepVarNoFB =r(mean)
estadd scalar SDDepVarNoFB =r(sd)

reg DiffRemindLevel9_8 treat_MR if  treatment!=1 & taguser==1 & feedback==0, robust
eststo NoFBMRCRemindLevel9_8
estadd local IndividualsNoFB=`e(N)' 
summarize DiffRemindLevel9_8 if treatment==0 & feedback==0   & taguser==1 
estadd scalar MeanDepVarNoFB =r(mean)
estadd scalar SDDepVarNoFB =r(sd)
reg DiffRemindLevel10_9 treat_MR if  treatment!=1 & taguser==1 & feedback==0, robust
eststo NoFBMRCRemindLevel10_9
estadd local IndividualsNoFB=`e(N)' 
summarize DiffRemindLevel10_9 if treatment==0 & feedback==0   & taguser==1 
estadd scalar MeanDepVarNoFB =r(mean)
estadd scalar SDDepVarNoFB =r(sd)

reg DiffManyRemindLevel9_8 treat_MR if  treatment!=1 & taguser==1 & feedback==0, robust
eststo NoFBMRCManyRemindLevel9_8
estadd local IndividualsNoFB=`e(N)' 
summarize DiffManyRemindLevel9_8 if treatment==0 & feedback==0   & taguser==1 
estadd scalar MeanDepVarNoFB =r(mean)
estadd scalar SDDepVarNoFB =r(sd)
reg DiffManyRemindLevel10_9 treat_MR if  treatment!=1 & taguser==1 & feedback==0, robust
eststo NoFBMRCManyRemindLevel10_9
estadd local IndividualsNoFB=`e(N)' 
summarize DiffManyRemindLevel10_9 if treatment==0 & feedback==0   & taguser==1 
estadd scalar MeanDepVarNoFB =r(mean)
estadd scalar SDDepVarNoFB =r(sd)

reg DiffNeverRemindLevel9_8 treat_MR if  treatment!=1 & taguser==1 & feedback==0, robust
eststo NoFBMRCNeverRemindLevel9_8
estadd local IndividualsNoFB=`e(N)' 
summarize DiffNeverRemindLevel9_8 if treatment==0 & feedback==0   & taguser==1 
estadd scalar MeanDepVarNoFB =r(mean)
estadd scalar SDDepVarNoFB =r(sd)
reg DiffNeverRemindLevel10_9 treat_MR if  treatment!=1 & taguser==1 & feedback==0, robust
eststo NoFBMRCNeverRemindLevel10_9
estadd local IndividualsNoFB=`e(N)' 
summarize DiffNeverRemindLevel10_9 if treatment==0 & feedback==0   & taguser==1 
estadd scalar MeanDepVarNoFB =r(mean)
estadd scalar SDDepVarNoFB =r(sd)

*ManyReminders vs Reminder
reg DiffScoreLevel9_8 treat_MRR if  treatment!=0 & taguser==1 & feedback==0, robust
eststo NoFBMRRScoreLevel9_8
estadd local IndividualsNoFB=`e(N)' 
summarize DiffScoreLevel9_8 if treatment==1 & feedback==0   & taguser==1 
estadd scalar MeanDepVarNoFB =r(mean)
estadd scalar SDDepVarNoFB =r(sd)
reg DiffScoreLevel10_9 treat_MRR if  treatment!=0 & taguser==1 & feedback==0, robust
eststo NoFBMRRScoreLevel10_9
estadd local IndividualsNoFB=`e(N)' 
summarize DiffScoreLevel10_9 if treatment==1 & feedback==0   & taguser==1 
estadd scalar MeanDepVarNoFB =r(mean)
estadd scalar SDDepVarNoFB =r(sd)

reg DiffRemindLevel9_8 treat_MRR if  treatment!=0 & taguser==1 & feedback==0, robust
eststo NoFBMRRRemindLevel9_8
estadd local IndividualsNoFB=`e(N)' 
summarize DiffRemindLevel9_8 if treatment==1 & feedback==0   & taguser==1 
estadd scalar MeanDepVarNoFB =r(mean)
estadd scalar SDDepVarNoFB =r(sd)
reg DiffRemindLevel10_9 treat_MRR if  treatment!=0 & taguser==1 & feedback==0, robust
eststo NoFBMRRRemindLevel10_9
estadd local IndividualsNoFB=`e(N)' 
summarize DiffRemindLevel10_9 if treatment==1 & feedback==0   & taguser==1 
estadd scalar MeanDepVarNoFB =r(mean)
estadd scalar SDDepVarNoFB =r(sd)

reg DiffManyRemindLevel9_8 treat_MRR if  treatment!=0 & taguser==1 & feedback==0, robust
eststo NoFBMRRManyRemindLevel9_8
estadd local IndividualsNoFB=`e(N)' 
summarize DiffManyRemindLevel9_8 if treatment==1 & feedback==0   & taguser==1 
estadd scalar MeanDepVarNoFB =r(mean)
estadd scalar SDDepVarNoFB =r(sd)
reg DiffManyRemindLevel10_9 treat_MRR if  treatment!=0 & taguser==1 & feedback==0, robust
eststo NoFBMRRManyRemindLevel10_9
estadd local IndividualsNoFB=`e(N)' 
summarize DiffManyRemindLevel10_9 if treatment==1 & feedback==0   & taguser==1 
estadd scalar MeanDepVarNoFB =r(mean)
estadd scalar SDDepVarNoFB =r(sd)

reg DiffNeverRemindLevel9_8 treat_MRR if  treatment!=0 & taguser==1 & feedback==0, robust
eststo NoFBMRRNeverRemindLevel9_8
estadd local IndividualsNoFB=`e(N)' 
summarize DiffNeverRemindLevel9_8 if treatment==1 & feedback==0   & taguser==1 
estadd scalar MeanDepVarNoFB =r(mean)
estadd scalar SDDepVarNoFB =r(sd)
reg DiffNeverRemindLevel10_9 treat_MRR if  treatment!=0 & taguser==1 & feedback==0, robust
eststo NoFBMRRNeverRemindLevel10_9
estadd local IndividualsNoFB=`e(N)' 
summarize DiffNeverRemindLevel10_9 if treatment==1 & feedback==0   & taguser==1 
estadd scalar MeanDepVarNoFB =r(mean)
estadd scalar SDDepVarNoFB =r(sd)
}
*Reminder vs Control	
esttab RCScoreLevel9_8 RCScoreLevel10_9 RCRemindLevel9_8 RCRemindLevel10_9 RCNotRemindLevel9_8 RCNotRemindLevel10_9 using TableS30PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
legend label varlabels(_cons Constant) ///
title("Feedback as a confound  (feedback study, Reminder vs Control) \label{tab:ConfoundFB}") ///
addnotes("Dependent variable: Difference in average overall IFSA score between (1) levels 9 and 8, (2) levels 10 and 9;"  ///
"Difference in average score for reminded actions between (3) levels 9 and 8, (4) levels 10 and 9;"  ///
"Difference in average score for non-reminded actions between (5) levels 9 and 8, (6) levels 10 and 9."  ///
"OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}."  ///
"Robust standard errors in parentheses." )		

*ManyReminders vs Control	
esttab MRCScoreLevel9_8 MRCScoreLevel10_9 MRCRemindLevel9_8 MRCRemindLevel10_9 dummycolumn dummycolumn MRCManyRemindLevel9_8 MRCManyRemindLevel10_9  MRCNeverRemindLevel9_8 MRCNeverRemindLevel10_9 using TableS30PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" "Mean (Control)" "Std.dev.")) sfmt(2) ///
legend label varlabels(_cons Constant) ///
title("Feedback as a confound  (feedback study, ManyReminders vs Control) \label{tab:ConfoundFB}") ///
addnotes("Dependent variable: Difference in average overall IFSA score between (1) levels 9 and 8, (2) levels 10 and 9;"  ///
"Difference in average score for reminded actions between (3) levels 9 and 8, (4) levels 10 and 9;"  ///
"Difference in average score for reminded actions in {\em ManyReminders} between (5) levels 9 and 8, (6) levels 10 and 9."  ///
"Difference in average score for never-reminded actions between (7) levels 9 and 8, (8) levels 10 and 9."  ///
"OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Control) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Control}."  ///
"Robust standard errors in parentheses." )		

*ManyReminders vs Reminder	
esttab MRRScoreLevel9_8 MRRScoreLevel10_9 MRRRemindLevel9_8 MRRRemindLevel10_9  dummycolumn dummycolumn MRRManyRemindLevel9_8 MRRManyRemindLevel10_9  MRRNeverRemindLevel9_8 MRRNeverRemindLevel10_9 using TableS30PanelC.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
legend label varlabels(_cons Constant) ///
title("Feedback as a confound  (feedback study, ManyReminders vs Reminder) \label{tab:ConfoundFB}") ///
addnotes("Dependent variable: Difference in average overall IFSA score between (1) levels 9 and 8, (2) levels 10 and 9;"  ///
"Difference in average score for reminded actions between (3) levels 9 and 8, (4) levels 10 and 9;"  ///
"Difference in average score for reminded actions in {\em ManyReminders} between (5) levels 9 and 8, (6) levels 10 and 9."  ///
"Difference in average score for never-reminded actions between (7) levels 9 and 8, (8) levels 10 and 9."  ///
"OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}."  ///
"Robust standard errors in parentheses." )		


*** Table S31. Feedback as a confound  (no feedback study, placebo test) 
********************************************************************************

*Reminder vs Control	
esttab NoFBRCScoreLevel9_8 NoFBRCScoreLevel10_9 NoFBRCRemindLevel9_8 NoFBRCRemindLevel10_9 NoFBRCNotRemindLevel9_8 NoFBRCNotRemindLevel10_9 using TableS31PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
legend label varlabels(_cons Constant) ///
title("Feedback as a confound  (no feedback study, Reminder vs Control) \label{tab:ConfoundNoFB}") ///
addnotes("Dependent variable: Difference in average overall IFSA score between (1) levels 9 and 8, (2) levels 10 and 9;"  ///
"Difference in average score for reminded actions between (3) levels 9 and 8, (4) levels 10 and 9;"  ///
"Difference in average score for non-reminded actions between (5) levels 9 and 8, (6) levels 10 and 9."  ///
"OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}."  ///
"Robust standard errors in parentheses." )		


*ManyReminders vs Control	
esttab NoFBMRCScoreLevel9_8 NoFBMRCScoreLevel10_9 NoFBMRCRemindLevel9_8 NoFBMRCRemindLevel10_9 dummycolumn dummycolumn NoFBMRCManyRemindLevel9_8 NoFBMRCManyRemindLevel10_9  NoFBMRCNeverRemindLevel9_8 NoFBMRCNeverRemindLevel10_9 using TableS31PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" "Mean (Control)" "Std.dev.")) sfmt(2) ///
legend label varlabels(_cons Constant) ///
title("Feedback as a confound  (no feedback study, ManyReminders vs Control) \label{tab:ConfoundNoFB}") ///
addnotes("Dependent variable: Difference in average overall IFSA score between (1) levels 9 and 8, (2) levels 10 and 9;"  ///
"Difference in average score for reminded actions between (3) levels 9 and 8, (4) levels 10 and 9;"  ///
"Difference in average score for reminded actions in {\em ManyReminders} between (5) levels 9 and 8, (6) levels 10 and 9."  ///
"Difference in average score for never-reminded actions between (7) levels 9 and 8, (8) levels 10 and 9."  ///
"OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Control) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Control}."  ///
"Robust standard errors in parentheses." )		


*ManyReminders vs Reminder	
esttab NoFBMRRScoreLevel9_8 NoFBMRRScoreLevel10_9 NoFBMRRRemindLevel9_8 NoFBMRRRemindLevel10_9  dummycolumn dummycolumn NoFBMRRManyRemindLevel9_8 NoFBMRRManyRemindLevel10_9  NoFBMRRNeverRemindLevel9_8 NoFBMRRNeverRemindLevel10_9 using TableS31PanelC.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
legend label varlabels(_cons Constant) ///
title("Feedback as a confound  (no feedback study, ManyReminders vs Reminder) \label{tab:ConfoundNoFB}") ///
addnotes("Dependent variable: Difference in average overall IFSA score between (1) levels 9 and 8, (2) levels 10 and 9;"  ///
"Difference in average score for reminded actions between (3) levels 9 and 8, (4) levels 10 and 9;"  ///
"Difference in average score for reminded actions in {\em ManyReminders} between (5) levels 9 and 8, (6) levels 10 and 9."  ///
"Difference in average score for never-reminded actions between (7) levels 9 and 8, (8) levels 10 and 9."  ///
"OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}."  ///
"Robust standard errors in parentheses." )	


*** Table S32. Hypothesis 1 (last level of module 3)
********************************************************************************
quiet{
eststo clear
*All actions

	preserve
	drop if level!=10
	drop if tagrecipe==0
	drop if treatment==2
	
	*Feedback study
	reg ifsa_score pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp1aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp1bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp1cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	reg ifsa_score pretreatscore treat_R i.r if feedback==0, vce(cluster pid) 
	eststo hyp1aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp1bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp1cNoFB
	estadd local Controls  "\mbox{Ext}" 
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	restore



*Reminded actions

	preserve
	drop if level!=10
	drop if tagrecipe==0
	drop if treatment==2

	*Feedback study	
	reg ifsa_remind pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp1iaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp1ibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp1icFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study	
	reg ifsa_remind pretreatscore treat_R i.r if feedback==0, vce(cluster pid) 
	eststo hyp1iaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp1ibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp1icNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore


*Non-reminded actions

	preserve
	drop if level!=10
	drop if tagrecipe==0
	drop if treatment==2

	*Feedback study	
	reg ifsa_not_remind pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp1iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp1iibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp1iicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_not_remind pretreatscore treat_R i.r if feedback==0, vce(cluster pid) 
	eststo hyp1iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp1iibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp1iicNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	restore	
}
*Panel A: Feedback study	
esttab hyp1aFB hyp1bFB hyp1cFB hyp1iaFB hyp1ibFB hyp1icFB hyp1iiaFB hyp1iibFB hyp1iicFB using TableS32PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 1 (feedback study, level 10) \label{tab:Level10H1}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 10; (4)-(6) Handwashing score in level 10; (7)-(9) All IFSAs except handwashing in level 10." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab hyp1aNoFB hyp1bNoFB hyp1cNoFB hyp1iaNoFB hyp1ibNoFB hyp1icNoFB hyp1iiaNoFB hyp1iibNoFB hyp1iicNoFB using TableS32PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 1 (no feedback study, level 10) \label{tab:Level10H1}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 10; (4)-(6) Handwashing score in level 10; (7)-(9) All IFSAs except handwashing in level 10." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	


*** In text: "According to a Wald chi-square test for equality of coefficients across models, the coefficients are significantly different for all actions (p=0.0064) and for hand-washing -- the category reminded in {\em Reminder} (p<0.0001). In contrast, the size of the negative spillovers is the same as in in the first module: the coefficients for the non-reminded actions are not significantly different (p= 0.6557)." 

*** In text: "Again the no feedback study serves as a placebo test (see Panel B in Table S32). Here the treatment effect on performance still is present at the end of module 3 and, as expected, coefficients in the third level are not significantly different compared to those in the first level for any of the categories (p=0.8859/0.8159/0.9483 for all actions/reminded/non-reminded)."

gen hatr=r
replace hatr=r-8 if level==10

*Feedback study

*All actions
quiet{
eststo clear
reg ifsa_score pretreatscore treat_R i.hatr $BCOV $ECOV if level==8 & treatment!=2 & tagrecipe!=0 & feedback==1
eststo L8
reg ifsa_score pretreatscore treat_R i.hatr $BCOV $ECOV if level==10 & treatment!=2 & tagrecipe!=0 & feedback==1
eststo L10
}
suest L10 L8, vce(cluster pid)
test [L10_mean]treat_R=[L8_mean]treat_R

*Reminded actions
quiet{
eststo clear
reg ifsa_remind pretreatscore treat_R i.hatr $BCOV $ECOV if level==8 & treatment!=2 & tagrecipe!=0 & feedback==1
eststo L8
reg ifsa_remind pretreatscore treat_R i.hatr $BCOV $ECOV if level==10 & treatment!=2 & tagrecipe!=0 & feedback==1
eststo L10
}

suest L10 L8, vce(cluster pid)
test [L10_mean]treat_R=[L8_mean]treat_R

*Non-reminded actions
quiet{
eststo clear
reg ifsa_not_remind pretreatscore treat_R i.hatr $BCOV $ECOV if level==8 & treatment!=2 & tagrecipe!=0 & feedback==1
eststo L8
reg ifsa_not_remind pretreatscore treat_R i.hatr $BCOV $ECOV if level==10 & treatment!=2 & tagrecipe!=0 & feedback==1
eststo L10
}

suest L10 L8, vce(cluster pid)
test [L10_mean]treat_R=[L8_mean]treat_R

*No feedback study

*All actions
quiet{
eststo clear
reg ifsa_score pretreatscore treat_R i.hatr $BCOV $ECOV if level==8 & treatment!=2 & tagrecipe!=0 & feedback==0
eststo L8
reg ifsa_score pretreatscore treat_R i.hatr $BCOV $ECOV if level==10 & treatment!=2 & tagrecipe!=0 & feedback==0
eststo L10
}
suest L10 L8, vce(cluster pid)
test [L10_mean]treat_R=[L8_mean]treat_R

*Reminded actions
quiet{
eststo clear
reg ifsa_remind pretreatscore treat_R i.hatr $BCOV $ECOV if level==8 & treatment!=2 & tagrecipe!=0 & feedback==0
eststo L8
reg ifsa_remind pretreatscore treat_R i.hatr $BCOV $ECOV if level==10 & treatment!=2 & tagrecipe!=0 & feedback==0
eststo L10
}

suest L10 L8, vce(cluster pid)
test [L10_mean]treat_R=[L8_mean]treat_R

*Non-reminded actions
quiet{
eststo clear
reg ifsa_not_remind pretreatscore treat_R i.hatr $BCOV $ECOV if level==8 & treatment!=2 & tagrecipe!=0 & feedback==0
eststo L8
reg ifsa_not_remind pretreatscore treat_R i.hatr $BCOV $ECOV if level==10 & treatment!=2 & tagrecipe!=0 & feedback==0
eststo L10
}

suest L10 L8, vce(cluster pid)
test [L10_mean]treat_R=[L8_mean]treat_R

drop hatr


 
*** Table S33. SecondaryHypothesis 1 (last level of module 3)
********************************************************************************
quiet{
eststo clear
*All actio/ns

	preserve
	drop if level!=10
	drop if tagrecipe==0
	drop if treatment==1
	
	*Feedback study
	reg ifsa_score pretreatscore treat_MR i.r if feedback==1, vce(cluster pid) 
	eststo shyp1aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score pretreatscore treat_MR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp1bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score pretreatscore treat_MR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp1cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	reg ifsa_score pretreatscore treat_MR i.r if feedback==0, vce(cluster pid) 
	eststo shyp1aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_score pretreatscore treat_MR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp1bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_score pretreatscore treat_MR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp1cNoFB
	estadd local Controls  "\mbox{Ext}" 
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	restore



*Reminded actions in ManyReminders

	preserve
	drop if level!=10
	drop if tagrecipe==0
	drop if treatment==1

	*Feedback study	
	reg ifsa_many_remind pretreatscore treat_MR i.r if feedback==1, vce(cluster pid) 
	eststo shyp1iaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp1ibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp1icFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study	
	reg ifsa_many_remind pretreatscore treat_MR i.r if feedback==0, vce(cluster pid) 
	eststo shyp1iaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp1ibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp1icNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore


*Never-reminded actions

	preserve
	drop if level!=10
	drop if tagrecipe==0
	drop if treatment==1

	*Feedback study	
	reg ifsa_never_remind pretreatscore treat_MR i.r if feedback==1, vce(cluster pid) 
	eststo shyp1iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==0 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp1iibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp1iicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_never_remind pretreatscore treat_MR i.r if feedback==0, vce(cluster pid) 
	eststo shyp1iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp1iibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_never_remind pretreatscore treat_MR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp1iicNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	restore	
}
*Panel A: Feedback study	
esttab shyp1aFB shyp1bFB shyp1cFB shyp1iaFB shyp1ibFB shyp1icFB shyp1iiaFB shyp1iibFB shyp1iicFB using TableS33PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Secondary Hypothesis 1 (feedback study, level 10) \label{tab:Level10SH1}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 10; (4)-(6) Handwashing score in level 10; (7)-(9) All IFSAs except handwashing in level 10." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab shyp1aNoFB shyp1bNoFB shyp1cNoFB shyp1iaNoFB shyp1ibNoFB shyp1icNoFB shyp1iiaNoFB shyp1iibNoFB shyp1iicNoFB using TableS33PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Secondary Hypothesis 1 (no feedback study, level 10) \label{tab:Level10SH1}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 10; (4)-(6) Handwashing score in level 10; (7)-(9) All IFSAs except handwashing in level 10." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	


*** In text: "The coefficients on the treatment dummy ManyReminders are smaller for all actions (p<0.0001) and for the actions reminded in ManyReminders (p<0.0001) compared to those in level 1 (see Table S33). The coefficients for the non-reminded actions are not significantly different (p= 0.7251), which means that the size of the negative spillovers remains constant."

gen hatr=r
replace hatr=r-8 if level==10

*Feedback study

*All actions
quiet{
eststo clear
reg ifsa_score pretreatscore treat_MR i.hatr $BCOV $ECOV if level==8 & treatment!=1 & tagrecipe!=0 & feedback==1
eststo L8
reg ifsa_score pretreatscore treat_MR i.hatr $BCOV $ECOV if level==10 & treatment!=1 & tagrecipe!=0 & feedback==1
eststo L10
}
suest L10 L8, vce(cluster pid)
test [L10_mean]treat_MR=[L8_mean]treat_MR

*Reminded actions in ManyReminders
quiet{
eststo clear
reg ifsa_many_remind pretreatscore treat_MR i.hatr $BCOV $ECOV if level==8 & treatment!=1 & tagrecipe!=0 & feedback==1
eststo L8
reg ifsa_many_remind pretreatscore treat_MR i.hatr $BCOV $ECOV if level==10 & treatment!=1 & tagrecipe!=0 & feedback==1
eststo L10
}

suest L10 L8, vce(cluster pid)
test [L10_mean]treat_MR=[L8_mean]treat_MR

*Non-reminded actions in ManyReminders
quiet{
eststo clear
reg ifsa_never_remind pretreatscore treat_MR i.hatr $BCOV $ECOV if level==8 & treatment!=1 & tagrecipe!=0 & feedback==1
eststo L8
reg ifsa_never_remind pretreatscore treat_MR i.hatr $BCOV $ECOV if level==10 & treatment!=1 & tagrecipe!=0 & feedback==1
eststo L10
}

suest L10 L8, vce(cluster pid)
test [L10_mean]treat_MR=[L8_mean]treat_MR

drop hatr

*** Table S34. Hypothesis 2 and Secondary Hypothesis 2  (last level of module 3)
********************************************************************************
quiet{
eststo clear
*All actions

	preserve
	drop if level<10
	drop if tagrecipe==0
	drop if level>10
	drop if treatment==0
	
	*Feedback study
	reg ifsa_score pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo hyp2aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp2bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)		
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp2cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	

	*No feedback study
	reg ifsa_score pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo hyp2aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp2bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp2cNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	
	restore 
*Reminded actions

	preserve
	drop if level!=10
	drop if tagrecipe==0
	drop if treatment==0
	
	*Feedback study
	reg ifsa_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo shyp2aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp2bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp2cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	reg ifsa_remind pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo shyp2aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp2bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp2cNoFB
	estadd local Controls  "\mbox{Ext}" 
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	restore



*Reminded actions in ManyReminders

	preserve
	drop if level!=10
	drop if tagrecipe==0
	drop if treatment==0

	*Feedback study	
	reg ifsa_many_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo shyp2iaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp2ibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp2icFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study	
	reg ifsa_many_remind pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo shyp2iaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp2ibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp2icNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore


*Never-reminded actions

	preserve
	drop if level!=10
	drop if tagrecipe==0
	drop if treatment==0

	*Feedback study	
	reg ifsa_never_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo shyp2iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp2iibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp2iicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_never_remind pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo shyp2iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp2iibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp2iicNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	
	restore
}
*Panel A: Feedback study	
esttab hyp2aFB hyp2bFB hyp2cFB shyp2aFB shyp2bFB shyp2cFB shyp2iaFB shyp2ibFB shyp2icFB shyp2iiaFB shyp2iibFB shyp2iicFB using TableS34PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
legend label varlabels(_cons Constant) ///
title("Hypothesis 2 (feedback study, level 10) \label{tab:Level10H2}") ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 10." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		


*Panel B: No feedback study	
esttab hyp2aNoFB hyp2bNoFB hyp2cNoFB shyp2aNoFB shyp2bNoFB shyp2cNoFB shyp2iaNoFB shyp2ibNoFB shyp2icNoFB shyp2iiaNoFB shyp2iibNoFB shyp2iicNoFB using TableS34PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
legend label varlabels(_cons Constant) ///
title("Hypothesis 2 (no feedback study, level 10) \label{tab:Level10H2}") ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 10." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	



********************************************************************************
***   		   SI 10. Heterogeneous treatment effects     				     ***
********************************************************************************


*** Table S50. Heterogeneous treatment effects: Prior Knowledge
********************************************************************************
quietly{
*Generate median split
capture drop Knowledgeable
gen Knowledgeable=0
sum PriorKnowledge, d
replace Knowledgeable=1 if PriorKnowledge>=r(p50)  
capture drop interaction2
capture drop interaction3
gen interaction2=Knowledgeable*treat_R
gen interaction3=Knowledgeable*treat_MR

label var Knowledgeable "High prior knowledge"
label var interaction2 "(High prior knowledge)*Reminder"
label var interaction3 "(High prior knowledge)*ManyReminders"

eststo clear	
* Hypothesis 1 (heterogeneous treatment effects)
*Non-reminded actions

	*Feedback study	
	reg ifsa_not_remind pretreatscore Knowledgeable interaction2 treat_R i.r if feedback==1 & level==8 & tagrecipe==1 & treatment!=2, vce(cluster pid) 
	eststo hyp1iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_not_remind pretreatscore Knowledgeable interaction2 treat_R i.r if feedback==0 & level==8 & tagrecipe==1 & treatment!=2, vce(cluster pid) 
	eststo hyp1iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
* Hypothesis 2 and Secondary Hypothesis 2 (heterogeneous treatment effects)
*Never-reminded actions


	*Feedback study	
	reg ifsa_never_remind pretreatscore Knowledgeable interaction3 treat_MRR i.r if feedback==1  & level==8 & tagrecipe==1 & treatment!=0, vce(cluster pid) 
	eststo shyp2iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	
	*No feedback study
	reg ifsa_never_remind pretreatscore Knowledgeable interaction3 treat_MRR i.r if feedback==0  & level==8 & tagrecipe==1 & treatment!=0, vce(cluster pid) 
	eststo shyp2iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
			
	
* Hypothesis 3 (heterogeneous treatment effects)	
*Non-reminded actions


	*Feedback study	
	reg ifsa_not_remind pretreatscore Knowledgeable interaction2 treat_R i.r if feedback==1  & level==11 & tagrecipe==1 & treatment!=2, vce(cluster pid) 
	eststo hyp3iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_not_remind pretreatscore Knowledgeable interaction2 treat_R i.r if feedback==0 & level==11 & tagrecipe==1 & treatment!=2, vce(cluster pid) 
	eststo hyp3iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	
* Hypothesis 4 and Secondary Hypothesis 4 (heterogeneous treatment effects)
*Never-reminded actions

	*Feedback study	
	reg ifsa_never_remind pretreatscore Knowledgeable interaction3 treat_MRR i.r if feedback==1 & level==11 & tagrecipe==1 & treatment!=0, vce(cluster pid) 
	eststo shyp4iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_never_remind pretreatscore Knowledgeable interaction3 treat_MRR i.r if feedback==0 & level==11 & tagrecipe==1 & treatment!=0, vce(cluster pid) 
	eststo shyp4iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	
}
*Panel A: Feedback study	
esttab hyp1iiaFB hyp3iiaFB shyp2iiaFB shyp4iiaFB using TableS50PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R treat_MRR Knowledgeable interaction2 interaction3) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Heterogeneous treatment effects: Prior Knowledge (feedback study) \label{tab:Heteffects1}") ///
legend label varlabels(_cons Constant) ///
mgroups("Hyp1" "Hyp3" "Hyp2" "Hyp4", pattern(1 1 1 1) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: Non-reminded IFSA (never reminded IFSA)." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab hyp1iiaNoFB  hyp3iiaNoFB shyp2iiaNoFB shyp4iiaNoFB using TableS50PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R treat_MRR Knowledgeable interaction2 interaction3) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Heterogeneous treatment effects: Prior Knowledge (no feedback study) \label{tab:Heteffects1}") ///
legend label varlabels(_cons Constant) ///
mgroups("Hyp1" "Hyp3" "Hyp2" "Hyp4", pattern(1 1 1 1) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable:  Non-reminded IFSA (never reminded IFSA)" "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	



*** Table S51. Heterogeneous treatment effects: Sex
********************************************************************************
quietly{
capture drop interaction2
capture drop interaction3
gen interaction2=Female*treat_R
gen interaction3=Female*treat_MR

label var interaction2 "Female*Reminder"
label var interaction3 "Female*ManyReminders"

eststo clear	
* Hypothesis 1 (heterogeneous treatment effects)
*Non-reminded actions

	*Feedback study	
	reg ifsa_not_remind pretreatscore Female interaction2 treat_R i.r if feedback==1 & level==8 & tagrecipe==1 & treatment!=2, vce(cluster pid) 
	eststo hyp1iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_not_remind pretreatscore Female interaction2 treat_R i.r if feedback==0 & level==8 & tagrecipe==1 & treatment!=2, vce(cluster pid) 
	eststo hyp1iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
* Hypothesis 2 and Secondary Hypothesis 2 (heterogeneous treatment effects)
*Never-reminded actions


	*Feedback study	
	reg ifsa_never_remind pretreatscore Female interaction3 treat_MRR i.r if feedback==1  & level==8 & tagrecipe==1 & treatment!=0, vce(cluster pid) 
	eststo shyp2iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	
	*No feedback study
	reg ifsa_never_remind pretreatscore Female interaction3 treat_MRR i.r if feedback==0  & level==8 & tagrecipe==1 & treatment!=0, vce(cluster pid) 
	eststo shyp2iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
			
	
* Hypothesis 3 (heterogeneous treatment effects)	
*Non-reminded actions


	*Feedback study	
	reg ifsa_not_remind pretreatscore Female interaction2 treat_R i.r if feedback==1  & level==11 & tagrecipe==1 & treatment!=2, vce(cluster pid) 
	eststo hyp3iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_not_remind pretreatscore Female interaction2 treat_R i.r if feedback==0 & level==11 & tagrecipe==1 & treatment!=2, vce(cluster pid) 
	eststo hyp3iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	
* Hypothesis 4 and Secondary Hypothesis 4 (heterogeneous treatment effects)
*Never-reminded actions

	*Feedback study	
	reg ifsa_never_remind pretreatscore Female interaction3 treat_MRR i.r if feedback==1 & level==11 & tagrecipe==1 & treatment!=0, vce(cluster pid) 
	eststo shyp4iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_never_remind pretreatscore Female interaction3 treat_MRR i.r if feedback==0 & level==11 & tagrecipe==1 & treatment!=0, vce(cluster pid) 
	eststo shyp4iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	
}
*Panel A: Feedback study	
esttab hyp1iiaFB hyp3iiaFB shyp2iiaFB shyp4iiaFB using TableS51PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R treat_MRR Female interaction2 interaction3) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Heterogeneous treatment effects: Sex (feedback study) \label{tab:Heteffects2}") ///
legend label varlabels(_cons Constant) ///
mgroups("Hyp1" "Hyp3" "Hyp2" "Hyp4", pattern(1 1 1 1) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: Non-reminded IFSA (never reminded IFSA)." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab hyp1iiaNoFB  hyp3iiaNoFB shyp2iiaNoFB shyp4iiaNoFB using TableS51PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R treat_MRR Female interaction2 interaction3) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Heterogeneous treatment effects: Sex (no feedback study) \label{tab:Heteffects2}") ///
legend label varlabels(_cons Constant) ///
mgroups("Hyp1" "Hyp3" "Hyp2" "Hyp4", pattern(1 1 1 1) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable:  Non-reminded IFSA (never reminded IFSA)" "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	


*** Table S52. Heterogeneous treatment effects: Risk aversion
********************************************************************************
quietly{
*Generate median split 
gen LowRiskAversion=0
sum Risktolerance, d
replace LowRiskAversion=1 if Risktolerance>=r(p50)  
capture drop interaction2
capture drop interaction3
gen interaction2=LowRiskAversion*treat_R
gen interaction3=LowRiskAversion*treat_MR

label var LowRiskAversion "Low risk aversion"
label var interaction2 "(Low risk aversion)*Reminder"
label var interaction3 "(Low risk aversion)*ManyReminders"

eststo clear	
* Hypothesis 1 (heterogeneous treatment effects)
*Non-reminded actions

	*Feedback study	
	reg ifsa_not_remind pretreatscore LowRiskAversion interaction2 treat_R i.r if feedback==1 & level==8 & tagrecipe==1 & treatment!=2, vce(cluster pid) 
	eststo hyp1iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_not_remind pretreatscore LowRiskAversion interaction2 treat_R i.r if feedback==0 & level==8 & tagrecipe==1 & treatment!=2, vce(cluster pid) 
	eststo hyp1iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
* Hypothesis 2 and Secondary Hypothesis 2 (heterogeneous treatment effects)
*Never-reminded actions


	*Feedback study	
	reg ifsa_never_remind pretreatscore LowRiskAversion interaction3 treat_MRR i.r if feedback==1  & level==8 & tagrecipe==1 & treatment!=0, vce(cluster pid) 
	eststo shyp2iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	
	*No feedback study
	reg ifsa_never_remind pretreatscore LowRiskAversion interaction3 treat_MRR i.r if feedback==0  & level==8 & tagrecipe==1 & treatment!=0, vce(cluster pid) 
	eststo shyp2iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
			
	
* Hypothesis 3 (heterogeneous treatment effects)	
*Non-reminded actions


	*Feedback study	
	reg ifsa_not_remind pretreatscore LowRiskAversion interaction2 treat_R i.r if feedback==1  & level==11 & tagrecipe==1 & treatment!=2, vce(cluster pid) 
	eststo hyp3iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_not_remind pretreatscore LowRiskAversion interaction2 treat_R i.r if feedback==0 & level==11 & tagrecipe==1 & treatment!=2, vce(cluster pid) 
	eststo hyp3iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	
* Hypothesis 4 and Secondary Hypothesis 4 (heterogeneous treatment effects)
*Never-reminded actions

	*Feedback study	
	reg ifsa_never_remind pretreatscore LowRiskAversion interaction3 treat_MRR i.r if feedback==1 & level==11 & tagrecipe==1 & treatment!=0, vce(cluster pid) 
	eststo shyp4iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_never_remind pretreatscore LowRiskAversion interaction3 treat_MRR i.r if feedback==0 & level==11 & tagrecipe==1 & treatment!=0, vce(cluster pid) 
	eststo shyp4iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	
}
*Panel A: Feedback study	
esttab hyp1iiaFB hyp3iiaFB shyp2iiaFB shyp4iiaFB using TableS52PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R treat_MRR LowRiskAversion interaction2 interaction3) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Heterogeneous treatment effects: Prior Knowledge (feedback study) \label{tab:Heteffects3}") ///
legend label varlabels(_cons Constant) ///
mgroups("Hyp1" "Hyp3" "Hyp2" "Hyp4", pattern(1 1 1 1) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: Non-reminded IFSA (never reminded IFSA)." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab hyp1iiaNoFB  hyp3iiaNoFB shyp2iiaNoFB shyp4iiaNoFB using TableS52PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R treat_MRR LowRiskAversion interaction2 interaction3) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Heterogeneous treatment effects: Prior Knowledge (no feedback study) \label{tab:Heteffects3}") ///
legend label varlabels(_cons Constant) ///
mgroups("Hyp1" "Hyp3" "Hyp2" "Hyp4", pattern(1 1 1 1) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable:  Non-reminded IFSA (never reminded IFSA)" "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	



*** Table S53. Heterogeneous treatment effects: Gaming frequency
********************************************************************************
quietly{
*Generate median split 

*Generate median split for variables
capture drop Gamer
gen Gamer=0
sum FreqComputerGames, d
replace Gamer=1 if FreqComputerGames>=r(p50)  

capture drop interaction2
capture drop interaction3
gen interaction2=Gamer*treat_R
gen interaction3=Gamer*treat_MR

label var Gamer "High gaming frequency"
label var interaction2 "(High gaming frequency)*Reminder"
label var interaction3 "(High gaming frequency)*ManyReminders"

eststo clear	
* Hypothesis 1 (heterogeneous treatment effects)
*Non-reminded actions

	*Feedback study	
	reg ifsa_not_remind pretreatscore Gamer interaction2 treat_R i.r if feedback==1 & level==8 & tagrecipe==1 & treatment!=2, vce(cluster pid) 
	eststo hyp1iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_not_remind pretreatscore Gamer interaction2 treat_R i.r if feedback==0 & level==8 & tagrecipe==1 & treatment!=2, vce(cluster pid) 
	eststo hyp1iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
* Hypothesis 2 and Secondary Hypothesis 2 (heterogeneous treatment effects)
*Never-reminded actions


	*Feedback study	
	reg ifsa_never_remind pretreatscore Gamer interaction3 treat_MRR i.r if feedback==1  & level==8 & tagrecipe==1 & treatment!=0, vce(cluster pid) 
	eststo shyp2iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	
	*No feedback study
	reg ifsa_never_remind pretreatscore Gamer interaction3 treat_MRR i.r if feedback==0  & level==8 & tagrecipe==1 & treatment!=0, vce(cluster pid) 
	eststo shyp2iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
			
	
* Hypothesis 3 (heterogeneous treatment effects)	
*Non-reminded actions


	*Feedback study	
	reg ifsa_not_remind pretreatscore Gamer interaction2 treat_R i.r if feedback==1  & level==11 & tagrecipe==1 & treatment!=2, vce(cluster pid) 
	eststo hyp3iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_not_remind pretreatscore Gamer interaction2 treat_R i.r if feedback==0 & level==11 & tagrecipe==1 & treatment!=2, vce(cluster pid) 
	eststo hyp3iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	
* Hypothesis 4 and Secondary Hypothesis 4 (heterogeneous treatment effects)
*Never-reminded actions

	*Feedback study	
	reg ifsa_never_remind pretreatscore Gamer interaction3 treat_MRR i.r if feedback==1 & level==11 & tagrecipe==1 & treatment!=0, vce(cluster pid) 
	eststo shyp4iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_never_remind pretreatscore Gamer interaction3 treat_MRR i.r if feedback==0 & level==11 & tagrecipe==1 & treatment!=0, vce(cluster pid) 
	eststo shyp4iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	
}
*Panel A: Feedback study	
esttab hyp1iiaFB hyp3iiaFB shyp2iiaFB shyp4iiaFB using TableS53PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R treat_MRR Gamer interaction2 interaction3) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Heterogeneous treatment effects: Gaming frequency (feedback study) \label{tab:Heteffects4}") ///
legend label varlabels(_cons Constant) ///
mgroups("Hyp1" "Hyp3" "Hyp2" "Hyp4", pattern(1 1 1 1) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: Non-reminded IFSA (never reminded IFSA)." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab hyp1iiaNoFB  hyp3iiaNoFB shyp2iiaNoFB shyp4iiaNoFB using TableS53PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R treat_MRR Gamer interaction2 interaction3) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Heterogeneous treatment effects: Gaming frequency (no feedback study) \label{tab:Heteffects4}") ///
legend label varlabels(_cons Constant) ///
mgroups("Hyp1" "Hyp3" "Hyp2" "Hyp4", pattern(1 1 1 1) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable:  Non-reminded IFSA (never reminded IFSA)" "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	

********************************************************************************
***   					SI 11. Control variables      				         ***
********************************************************************************

*** Table S54. Hypothesis 1 (dropping observations with imputed controls)
********************************************************************************
quiet{
eststo clear
*All actions

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==2
	drop if imputedvalue==1
	
	*Feedback study
	reg ifsa_score pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp1aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp1bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp1cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	reg ifsa_score pretreatscore treat_R i.r if feedback==0, vce(cluster pid) 
	eststo hyp1aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp1bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp1cNoFB
	estadd local Controls  "\mbox{Ext}" 
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	restore



*Reminded actions

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==2
	drop if imputedvalue==1
	
	*Feedback study	
	reg ifsa_remind pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp1iaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp1ibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp1icFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study	
	reg ifsa_remind pretreatscore treat_R i.r if feedback==0, vce(cluster pid) 
	eststo hyp1iaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp1ibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp1icNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore


*Non-reminded actions

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==2
	drop if imputedvalue==1
	
	*Feedback study	
	reg ifsa_not_remind pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp1iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp1iibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp1iicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_not_remind pretreatscore treat_R i.r if feedback==0, vce(cluster pid) 
	eststo hyp1iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp1iibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp1iicNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	restore	
}
*Panel A: Feedback study	
esttab hyp1aFB hyp1bFB hyp1cFB hyp1iaFB hyp1ibFB hyp1icFB hyp1iiaFB hyp1iibFB hyp1iicFB using TableS54PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 1 (feedback study, dropping observations with imputed controls) \label{tab:H1noimputed}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 8; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab hyp1aNoFB hyp1bNoFB hyp1cNoFB hyp1iaNoFB hyp1ibNoFB hyp1icNoFB hyp1iiaNoFB hyp1iibNoFB hyp1iicNoFB using TableS54PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 1 (no feedback study, dropping observations with imputed controls \label{tab:H1noimputed}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 8; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	



*** Table S55. Hypothesis 2 and Secondary Hypothesis 2 (dropping observations with imputed controls)
********************************************************************************
quiet{
eststo clear
*Hypothesis 2: All actions

	preserve
	drop if level<8
	drop if tagrecipe==0
	drop if level>8
	drop if treatment==0
	drop if imputedvalue==1
	
	*Feedback study
	reg ifsa_score pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo hyp2aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp2bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)		
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp2cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	

	*No feedback study
	reg ifsa_score pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo hyp2aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp2bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp2cNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	
	restore
	

	*Reminded actions

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==0
	drop if imputedvalue==1
	
	*Feedback study
	reg ifsa_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo shyp2aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp2bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp2cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	reg ifsa_remind pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo shyp2aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp2bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp2cNoFB
	estadd local Controls  "\mbox{Ext}" 
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	restore


*Secondary Hypothesis 2	
*Reminded actions in ManyReminders

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==0
	drop if imputedvalue==1
	
	*Feedback study	
	reg ifsa_many_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo shyp2iaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp2ibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp2icFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study	
	reg ifsa_many_remind pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo shyp2iaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp2ibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp2icNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore


*Never-reminded actions

	preserve
	drop if level!=8
	drop if tagrecipe==0
	drop if treatment==0
	drop if imputedvalue==1
	
	*Feedback study	
	reg ifsa_never_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo shyp2iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp2iibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp2iicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_never_remind pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo shyp2iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp2iibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp2iicNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	restore	
		
}
*Panel A: Feedback study	
esttab hyp2aFB hyp2bFB hyp2cFB shyp2aFB shyp2bFB shyp2cFB shyp2iaFB shyp2ibFB shyp2icFB shyp2iiaFB shyp2iibFB shyp2iicFB using TableS55PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 2 and Secondary Hypothesis 2 (feedback study, dropping observations with imputed controls \label{tab:H2SH2noimputed}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Reminded actions in MR" "Never-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 8; (4)-(6) Handwashing score in level 8; (7)-(9) Reminded actions in {\em ManyReminders} in level 8,(10)-(12) All IFSAs except those reminded in {\em ManyReminders} in level 8." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab hyp2aNoFB hyp2bNoFB hyp2cNoFB shyp2aNoFB shyp2bNoFB shyp2cNoFB shyp2iaNoFB shyp2ibNoFB shyp2icNoFB shyp2iiaNoFB shyp2iibNoFB shyp2iicNoFB using TableS55PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 2 and Secondary Hypothesis 2 (no feedback study, dropping observations with imputed controls \label{tab:H2SH2noimputed}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Reminded actions in MR" "Never-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 8; (4)-(6) Handwashing score in level 8; (7)-(9) Reminded actions in {\em ManyReminders} in level 8,(10)-(12) All IFSAs except those reminded in {\em ManyReminders} in level 8." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	


*** Table S56. Hypothesis 3 (dropping observations with imputed controls)
********************************************************************************
quiet{
eststo clear	
*All actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==2
	drop if imputedvalue==1
	
	*Feedback study
	reg ifsa_score pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp3aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp3bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp3cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	reg ifsa_score pretreatscore treat_R i.r if feedback==0, vce(cluster pid) 
	eststo hyp3aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp3bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_score pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp3cNoFB
	estadd local Controls  "\mbox{Ext}" 
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	restore



*Reminded actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==2
	drop if imputedvalue==1
	
	*Feedback study	
	reg ifsa_remind pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp3iaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp3ibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp3icFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study	
	reg ifsa_remind pretreatscore treat_R i.r if feedback==0, vce(cluster pid) 
	eststo hyp3iaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp3ibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp3icNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore


*Non-reminded actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==2
	drop if imputedvalue==1
	
	*Feedback study	
	reg ifsa_not_remind pretreatscore treat_R i.r if feedback==1, vce(cluster pid) 
	eststo hyp3iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp3iibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp3iicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_not_remind pretreatscore treat_R i.r if feedback==0, vce(cluster pid) 
	eststo hyp3iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp3iibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_not_remind pretreatscore treat_R i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp3iicNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_not_remind if treatment==0 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	restore	
}
*Panel A: Feedback study	
esttab hyp3aFB hyp3bFB hyp3cFB hyp3iaFB hyp3ibFB hyp3icFB hyp3iiaFB hyp3iibFB hyp3iicFB using TableS56PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Hypotheses 3 and 4 (feedback study, dropping observations with imputed controls \label{tab:H34noimputed}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 11; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab hyp3aNoFB hyp3bNoFB hyp3cNoFB hyp3iaNoFB hyp3ibNoFB hyp3icNoFB hyp3iiaNoFB hyp3iibNoFB hyp3iicNoFB using TableS56PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_R) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Control)" "Std.dev.")) sfmt(2) ///
title("Hypotheses 3 and 4 (no feedback study, dropping observations with imputed controls \label{tab:H34noimputed}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Non-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 11; (4)-(6) Handwashing score in level 8; (7)-(9) All IFSAs except handwashing in level 8." "OLS Regressions of the dependent variable on a treatment dummy (Reminder vs Control) that is equal to 1 if the subject participated in treatment {\em Reminder} and 0 if in {\em Control}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	


*** Table S57. Hypothesis 4 and Secondary Hypothesis 4 (dropping observations with imputed controls)
********************************************************************************
quiet{
*Hypothesis 4
	*All actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==0
	drop if imputedvalue==1
	
	*Feedback study
	reg ifsa_score pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo hyp4aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo hyp4bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)		
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo hyp4cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	

	*No feedback study
	reg ifsa_score pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo hyp4aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo hyp4bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_score pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo hyp4cNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_score if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore
	
*Secondary Hypothesis 4
*Reminded actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==0
	drop if imputedvalue==1
	
	*Feedback study
	reg ifsa_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo shyp4aFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp4bFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp4cFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)

	*No feedback study
	reg ifsa_remind pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo shyp4aNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp4bNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp4cNoFB
	estadd local Controls  "\mbox{Ext}" 
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	
	restore



*Reminded actions in ManyReminders

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==0
	drop if imputedvalue==1
	
	*Feedback study	
	reg ifsa_many_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo shyp4iaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp4ibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp4icFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study	
	reg ifsa_many_remind pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo shyp4iaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp4ibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)
	reg ifsa_many_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp4icNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_many_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	restore


*Never-reminded actions

	preserve
	drop if level!=11
	drop if tagrecipe==0
	drop if treatment==0
	drop if imputedvalue==1
	
	*Feedback study	
	reg ifsa_never_remind pretreatscore treat_MRR i.r if feedback==1, vce(cluster pid) 
	eststo shyp4iiaFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV if feedback==1, vce(cluster pid) 
	eststo shyp4iibFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==1, vce(cluster pid) 
	eststo shyp4iicFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==1 & PriorBehaviors!=.
	estadd scalar MeanDepVarFB =r(mean)
	estadd scalar SDDepVarFB =r(sd)	
	
	*No feedback study
	reg ifsa_never_remind pretreatscore treat_MRR i.r if feedback==0, vce(cluster pid) 
	eststo shyp4iiaNoFB
	estadd local Controls  "\mbox{No}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV if feedback==0, vce(cluster pid) 
	eststo shyp4iibNoFB
	estadd local Controls  "\mbox{Basic}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)		
	reg ifsa_never_remind pretreatscore treat_MRR i.r $BCOV $ECOV if feedback==0, vce(cluster pid) 
	eststo shyp4iicNoFB
	estadd local Controls  "\mbox{Ext}"
	estadd local IndividualsNoFB `=e(N_clust) '
	summarize ifsa_never_remind if treatment==1 & feedback==0 & PriorBehaviors!=.
	estadd scalar MeanDepVarNoFB =r(mean)
	estadd scalar SDDepVarNoFB =r(sd)	
		
	restore	
}
*Panel A: Feedback study	
esttab hyp4aFB hyp4bFB hyp4cFB shyp4aFB shyp4bFB shyp4cFB shyp4iaFB shyp4ibFB shyp4icFB shyp4iiaFB shyp4iibFB shyp4iicFB  using TableS57PanelA.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsFB r2_a  Controls MeanDepVarFB SDDepVarFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 4 and Secondary Hypothesis 4 (feedback study, dropping observations with imputed controls \label{tab:H5SH5noimputed}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Reminded actions in MR" "Never-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 11; (4)-(6) Handwashing score in level 11; (7)-(9) Reminded actions in {\em ManyReminders} in level 11,(10)-(12) All IFSAs except those reminded in {\em ManyReminders} in level 11." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )		

*Panel B: No feedback study	
esttab hyp4aNoFB hyp4bNoFB hyp4cNoFB shyp4aNoFB shyp4bNoFB shyp4cNoFB shyp4iaNoFB shyp4ibNoFB shyp4icNoFB shyp4iiaNoFB shyp4iibNoFB shyp4iicNoFB  using TableS57PanelB.tex, replace b(2) se(2)  ///
booktabs alignment(D{.}{.}{-1}) ///
nonotes nomtitle collabels(none) ///
keep (treat_MRR) ///
star(* 0.10 ** 0.05 *** 0.01) /// 
stats(N IndividualsNoFB r2_a  Controls MeanDepVarNoFB SDDepVarNoFB, fmt(0 0 2 2 2 2) ///
labels(N "Individuals" "Adj. R2" Controls "Mean (Reminder)" "Std.dev.")) sfmt(2) ///
title("Hypothesis 4 and Secondary Hypothesis 4 (no feedback study, dropping observations with imputed controls \label{tab:H5SH5noimputed}") ///
legend label varlabels(_cons Constant) ///
mgroups("All actions" "Reminded actions" "Reminded actions in MR" "Never-reminded actions", pattern(1 0 0 1 0 0 1 0 0) prefix(\multicolumn{@span}{c}{) suffix(}) span erepeat(\cmidrule(lr){@span})) ///
addnotes("Dependent variable: (1)-(3) overall IFSA score in level 11; (4)-(6) Handwashing score in level 11; (7)-(9) Reminded actions in {\em ManyReminders} in level 11,(10)-(12) All IFSAs except those reminded in {\em ManyReminders} in level 11." "OLS Regressions of the dependent variable on a treatment dummy (ManyReminders vs Reminder) that is equal to 1 if the subject participated in treatment {\em ManyReminders} and 0 if in {\em Reminder}." "Specifications include, next to the controls as indicated in the table, a recipe fixed effect and control for the pre-treatment score." "Standard errors, clustered at the individual level, in parentheses." )	







